
s DEmonstration Pints, 

Wizard lllie,Spaceys, ' ■( 

, iMteuEst, Sink the Bismarck 

Graffiti, Quadratic Equation, • 

( | Star FTlap, Rochet Attack . 

. Forcefteld, Bounce-a^Pic, 

Line Drawer, Pined Race, 

Eap, Poetry, Star Gates, 
Luna Lander,? "Sub Chase, 

□oofioht. v Ohm's Law 
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MUSIC BOARD 

3 channels 
Kit £16.95 
Built £18.95 


BOOKS 


IN OUT PORT 

24 lines(in or out) 

Controlled by (basic) 23 Way female 

Built £16.95 25 Way male 

Kit £18.95 


CONNECTORS 


30 way ribbon 


£2.95 Getting acquainted 4.95 
y # 30 Mastering machine 5.95 

1!40 code 

Programming for real6.95 

applications 

Tape for above 11.44 


KEYBOARD £25-70 

.No soldering - just plug in 
Proper switches 
Two colour legends 
RAM/PRINTER operation not affected 


K I T 520-50 
CASE 10-30 

EXTRA KEYS 

48 P 


REDDITCH ELECTRONICS 


DEPT SP 

21 FERNEY HILL AVENUE 
REDDITCH 
WORCS B97 4RU 
ENGLAND 

TEL 0527 61240 

_ 


Send SAE for free illustrated 
catalogue (5" x 7") 

All prices include VAT and postage. 
Orders under £10 add 40p. 

Overseas add £1.80 
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7 CHASVADERS 

8 BOUNCE-A-PIC 

9 SPACEYS 

10 ROAD RACE 

11 ROCKET ATTACK 
CLOCK 

12 GRAVITY 

13 UNIVERSAL 
PATTERNER 

14 NIGHTFALL 


15 STAR MAP 

16 POETRY 

17 LUNARLANDER 

18 FORCE FIELD 

19 LINE DRAWER 

20 BOMB 

21 ADDING MACHINE 

22 QUADRATIC 
EQUATIONS 


23 QUEST 
26 ZX BANNERS 
28 DEMONSTRATION 
PLOTS 


29 OHM’S LAW 

30 ZX80 STRING 


SORT 



31 AVOIDING THE 


ZX80 OVERFLOW 

32 STOPWATCH 

33 SCREEN INVERT 

34 COMPUTER 
COMBAT 

35 CRICKET AVERAGES 

36 PROGSAVE AND 


PROGRETRIEVE 

37 SMAUG 

38 WIZARD WIZ 



39 DOGFIGHT 


40 WANDER 

41 SUBJECT INDEX 

43 SUB CHASE 

44 GRAFFITI 

45 ZAP 

46 SINK THE 
BISMARCK 

48 STAR GATES 

49 SPACE SHOOT- 
DOWN 
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ZX 80/81 HARDWARE/SOFTWARE 


ZX KEYBOARD 


Now with repeat key facilities to add a numeric pad. 
The keyboard has all the 80/81 functions on the 
keys, and will greatly increase your programming 
speed. It is fitted with push type keys as in larger 
computers. 

The keyboard has been specially designed for the 
Sinclair computer and is supplied ready-built. It also 
has facilities for 4 extra buttons which could be used 
for on/off switch, reset, etc. £27.95. Numeric Pad 

£ 10 . 00 . 


4K GRAPHICS ROM 


The dK Graphic module is our latest ZX81 accessory. This module, unlike most other accessories fits 
neatly inside your computer under the keyboard. The module comes ready built, fully tested and 
complete with a 4K graphic ROM. This will give you 448 extra pre-programmed graphics, your normal 
graphic set contains 64. This means that you now have 51 2 graphics and with there inverse 1 024. This 
now turns the 81 into a very powerful computer, with a graphic set rarely found on larger more 
expensive machines. In the ROM are lower case letters, bombs, bullets, rockets, tanks, a complete set 
of invaders graphics and that only accounts for about 50 of them, there are still about 400 left (that may 
give you an idea as to the scope of the new ROM). However, the module does not finish there; it also has 
a spare holder on the board which will accept a further 4K of ROM/RAM. This can be used with a 1 K or 
2K RAM chip for user definable graphics, so you can create your own custom character sets. £29.95. 


MEMORY 80/81 


16K RAM 

Massive add-on memory for 80/81 .£32.95. 

2K & 4K RAM 

Static Ram memory expansion for the 80/81. They both work with onboard Ram i.e. 4K plus onboard = 
5K. This is the cheapest small memory expansion available anywhere. 2K RAM £14.95. 4K RAM 
£19.95. 


1 

I6K 81 

1 SOFTWARE 

DEFLEX. This totally new and very addictive game, which was highly acclaimed at the Microfair, uses 


fast moving graphics to provide a challenge requiring not only quick reaction, but also clever thinking. 
One and two playerversions on same cassette. £3.95. 

3D/3D LABYRINTH. You have all seen 3D Labyrinth games, but this goes one stage beyond; you must 
manoeuvre within a cubic maze and contend with corridors which may go left/right/up/down. Full 
size 3D graphical representation. £3.95. 

CENTIPEDE. This is the first implementation of the popular arcade game on any micro anywhere. Never 
mind your invaders, etc., this is positively shining, the speed at which this runs makes ZX invaders look 
like a game of simple snap. £4.95. 


16K GRAPHIC ROM SOFTWARE 


CENTIPEDE Graphic ROM version of our popular centipede game. 

SPACE IN VADERS. The only real version of space invaders on the ZX computer. 

Please add £ 1 p&pfor all hardware. Software p&pfree. Specify ZX80/81 on order. 

ALL OUR PRODUCTS ARE COVERED BY A MONEY BACK GUARANTEE. 

W _ ® 23 Sussex Road, Gorleston, 

f VA Wfr I Great Yarmouth, Norfolk. 

II II III l_ Telephone: Yarmouth (0493) 602453 
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FULLER FD SYSTEM FOR ZX80/81—x 

THE MOST VERSATILE SYSTEM FOR EXPANDING YOUR ZX ] 


STANDARD KEYBOARD AND CASE 


/- 

Fu 

iller 

> 


mrmm, 

j 

i i i i i i 

! l ! l i l i l ! l l i ; i i 1 ! 1 ! 1 ! 1 


This splendid keyboard and case houses your ZX81 printed 
circuit board, which is simply screwed into place, the 
keyboard plugs into the ZX. You can now enter data with 
ease. The 40 key switch board is a custom unit not made up 
out of other manufacturers parts. The keytops are our own 
design and have the ZX Qwerty and functions foil printed 
onto them. Access to the user port, TV, MIC, and ear sockets 
are as per the ZX case. 

Built keyboard and case £36.70 or £30.70 as a kit plus £2.10 postage 
and packing. 


EXTENDED KEYBOARD AND CASE 



The case is designed to house not only the keyboard and ZX 
but also our motherboard, power supply, RAM cards and 
two other boards, not necessarily of our manufacture. The 
injection moulded case measures 200 mm x 350 mm x 
60 mm and houses a 42 keyswitch board, the extra keys 
can be assigned to other functions. The case is supplied 
with a "Power On" LED. 

Built keyboard and case £39.95 or kit £33.95 plus £2.50 postage 
and packing. Motherboards £15.95 plus 80p postage and packing. 
16k RAM board £35.95. 64k RAM board £79.95. 



Keyboard Only Available! 
Built £24.95 
Kit£18.95 ( + P.P. 80p) 


Send SAE for details to:- 
FULLER MICRO SYSTEMS, The ZX Centre, 
Sweeting Street, Liverpool 2. 



ZX81 ZX81 

JOIN 

ZX-GUARANTEED 

(CLUB IS DEVOTED EXCLUSIVELY TO ZX81) 


ALL GAMES/PROGS. GUARANTEED ERROR- 
FREE. ZX-GUARANTEED IS NOT JUST GAMES, 
IT IS INTENDED TO BE EDUCATIONAL. 
INCLUDES ARTICLES ON BASIC, PEEK, POKE, 
MACHINE CODE, FLICKER FREE 
PROGRAMMING, HINTS AND TIPS, ETC, ETC. 

MEMBERSHIP IS APRIL TO APRIL, IF YOU 
JOIN LATE, CURRENT YEARS BACK ISSUES 
WILL BE SENT. 

MEMBERSHIP £5 PER YEAR (EUROPE £6.50) 

AIRMAIL OUTSIDE EUROPE £ 11 

PLEASE MAKE CHEQUES/P.O./DRAFTS 
PAYABLE TO: ZX-GUARANTEED. 

SAMPLE LAST YEARS BACK ISSUE £1 PLUS 
SAE OR SAE FOR DETAILS. 


G. A. BOBKER 

29 CHADDERTON DRIVE. UNSWORTH, 
BURY, LANCS. 

TEL: 061-766 5712 


JRS SOFTWARE £ 

19 WAYSIDE AVENUE, WORTHING, SUSSEX, BN13 3JU m 

TELEPHONE WORTHING 66691 (Evenings and Weekends only) 


■ams PLU S 2 x IK programs 


City Bomb (M/code IK) - Des 
Warp Wars (Basic £» M/code II 


c ft M/code-16K) - 


An ESSENTIAL addition to your IK RAM ZX81 (or ZX80 8K ROM) 

i by PAUL HOLMES) 


Free space 

SPECIAL GRAPHICS ROUTINES 

Hyper graphics mode graphics 

Fill used in conjunction with 


rever seen on a ZX81 before, 
empty print lines as ygu require. .IK 
OPEN fills your screen instantly . 


Reverse changes each character on your screen to its inverse vide 
TAPE ROUTINE provides a system WAIT condition until a signal is 
the cassette ear jack many uses I 

All these routines are written in machine code and together take up 


The price is incredible too' ONLY £3.96 ($7.90) for cassette, 
instructions and example programs 

ALSO available 16K version ONLY £4.95 ($9.90) which includi 
GOTO's and GOSUBs included in line renumber. 

Search for and list every line containing specified character. 


including FULL 


As reviewed in 'YOUR COMPUTER' 
March 1982 

16K RAM PACK 
£35 ($69.95) 


WHY PAY 
MORE 



Fully built, tested and guaranteed. 

No additional power supply required, 
black case 

No wobble problems — fully 
compatible with printer etc, etc 
(Please send large S.A.E. + 50p for a 
copy of 'YOUR COMPUTER’ RAM 
pack reviews (March 1982) — 
Refunded when you purchase the 
HAM pack). Please allow 21 days for 
delivery 

Dk.UJ'dTTl 

NOW AVAILABLE - 64K RAM pack 
(56K useable) £75 inclusive 


GRAPHICS TOOLKIT 


(Another masterpiece by PAUL FIOLMES) 
22 exciting MACHINE CODE routines that give you control over your screen as never before ! 

(ZX81 - 16K RAM ONLY) 

DRAW/UNDRAW draws or deletes your 


multi-character shape which is defined in a REM 
statement. You may define as many different 
shapes as you like and draw or undraw each at 
will at whichever screen position you choose 

FOREGROUND ON/OFF use this to protect' 
existing characters on your screen. When on new 
shapes will appear to slide behind and re-emerge 
from other shapes 


BORDER/UNBORDER Dra 
edges of your screen area, 
if required. Your border is 
foreground is on 


a border round tl 


s you specify, starting 


it any line you specify, by your chosen character 


PRINT POSITION CONTROLS 
UP 1 
DOWN 
LEFT 
RIGHT J 

EDITPRINT Moves next PRINT position to first 
edit line 

ALL FOR ONLY £5.95 ($11 

(amazing value from JRS) 


90) 


SCROLL facilities 
UPSCROLL I 
DOWNSCROLL l 
RIGHTSCROLL f 
LEFTSCROLL J 

ONSCREEN/OFFSCREEN turns your screen on or 
off 

BACKGROUND ON/OFF 
Fills your screen by your specified character 
When foreground is on existing information is 
unaffected and shapes will appear to pass in front 
of your background, without deleting it 

SEARCH AND REPLACE will search the screen fcr 
every occurence of the character you specify and 
replace it with your new character 

SQUARE draws a square or rectangle from your 
specified co-ordinates 

ALL these routines are in machine code for 
SUPER FAST response ! Simply load GRAPHICS 
TOOLKIT, which repositions itself at the end of 
your RAM, and then your own program (or key in 
a new one), GRAPHICS TOOLKIT uses only 2K of 
your RAM and that includes space to load the 
programmers TOOLKIT described above (16K 
RAM version) 


This includes a cassette with 2 copies of the program 
plus a comprehensive instruction booklet with 
examples 


NOTE: All prices are fully inclusive — send cheque or P.O. to JRS Software at above address 
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TURN* LISTINGS’INTO 

DYNAMIC ZX GRAPHIC PROGRAMS 



All you need is a pencil, ingenuity, and Print 'n' Plotter Products! 

Within hours you'll discover all sorts of ways to change "words" into computer 
and produce really dynamic programs! 

You can do it easily with the help of a PRINT 'N' PLOTTER 
JOTTER and FILM. 

The JOTTER is a 100 page Graphics Pad designed for the 
ZX81/80. Every page has a PRINT and PLOT grid showing 
the screen locations. It tells you any part of the screen in 
seconds, and gives you a 'sketchpad' to produce incredible 
graphics for games, business programs, information 
panels, tabulations - everything the normal 'listing' lacks! 



Flyleaf 

cover. 


2 hole 
punched. ^ 


PRINT 'N' PLOTTER FILM is used with the JOTTER and is a matt, transparent, film 
version with identically-sized grids. Use it to co-ordinate PRINT or PLOT, or use it to 'copy' 
photographs, maps, charts, lettering or illustrations to use in programs. You can draw on the matt 
surface, and rub-out or wash it and use again! Print 'n' Plotter products will help you produce 
dynamic programs, whether you're converting existing listings or writing an original. 

Ask for them at your local Comp Shop, or send today for mail order. 

If you do not wish to use this coupon write, stating your requirements, 

To: Print 'n' Plotter Products (SP) 19 Borough High Street, London SE1 9SE. 

□ Please send me_JOTTERS @ £3.50 □ Please send me_FILMS @ £2.25 

□ Please send me_MANUALS @ £1.00 (£1.50 if ordered without JOTTER or FILM) 

□ Remittance enclosed □ Bill my Access/Visa No:_ 



Numbered 
PLOT Grid. 


Address 


100 Sheets. Size A4. 
Board backing. 


Note: Orders are usually posted within 46 hours of receipt. If you require 1st Class post please add 50p to order. 




Available at • Buffer Micro Shop 374a Streatham High Rd. London SW16 • Denny’s Booksellers 2 Carthusian St. London ECl • Microware 131 Metton Rd. Leicester. 


2% mffcwmiQ 

ADVENTURE GAMES 

Mission of the Deep. Fight your way through 
giant crabs, eels & explosive cargo to get the 
radioactive device. 16K £5.95. 

Nightmare Park. The keeper challenges you to 
match your wits against unknown odds. No 
human has succeeded! 14K £4.95. 

Warrior. Find and rescue your princess and 
battle with monsters, 3 dimensional display. 

16K £4.95. 

SPACE GAMES 

Space Invaders. Fast interactive graphics, on 
screen scoring, destructable protective shields. 
IK £4.95. Super 3K £5.95. 

Space Rescue. Save your crew from the planet 
surface, avoiding the moving stars. 16K £3.95. 
Planetoids. Skilfully plot your craft through the 
Asteroid Belt before your energy runs out. 16K 
£3.95. 


Access 


16K RAM Pack 

assembled, tested and cased “ mmm 

£37.50 inc (P&P) Allow 21 days delivery 
All supplied on cassette with instructions 
send cheque, P.O. or Card no. with order 


26 Spiers Close. Knowle, Solihull 
West Midlands. B93 9ES, England 


inunDins 



* ACNE VASECTOMY SMUT HITLER 




DOLE ROYAL FLUSH REAGAN P’s’N’Q’s 


IATH 



cassette No.3 
for the over 16’s 



THE BIBLE 


“rEHf 



Holy Moses SODOM GOLIATH JONAH Bethlehem 

prices include bizarre audio intros., revoltingly descriptive instruction postage & 
package send to: AUTOMATA LTD., (DpSP), 65A Osborne Road, Southsea 
P05 3LR, Hants. 
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F ROM 15-year-old Charles King- 
Cox of Appleby is a self-titled 
version of IK ZX-80 Space 
Invaders. Five Chasvaders are land¬ 
ing on earth and you—equipped 
with the best technology earth can 
muster, a lK, old ROM ZX-80—must 
stop them. Unfortunately, the game 
is impossible to win, because if you 
destroy them all they produce 
another five. That continues until 
you are blown up or the Chasvaders 
land. 

You have two missile bases— 
earth has spared no expense in its 
defence. One of the bases is position¬ 
ed somewhere beneath the invader 
on the right and you have to wait 
until it is directly above you to fire, 
which you do by pressing F. You 
have only five shots for each brace of 
Chasvaders. 

The plucky player scores 200 for 
every Chasvader destroyed, 
although you lose 10 points for every 
shot you fire. There is a bonus of 50 if 
you shoot all five invaders, making a 
grand total for the round of 1,000. 
The highest score we could obtain 
playing the game in office was 3570. 
Try to beat that. 

Keeping pressing NEWLINE over 
and over again to keep the invasion 
under way, unless you want to fire, 
when you press F before NEWLINE. 

10LET A=0 
20 LETB=0 
30 LETC = 0 
40 LETD = 0 
50 LETE = 0 
60LETB=B+1 
70 LETF=15 
80 LETG = 5 
90 GOTO 160 

100 IF G > 0 THEN PRINT “(2 spaces shift G D 
shift G)”; 

110 RETURN 

120 FOR H=1 TO 16 

130 PRINT “(2 shift G)”; 

140 NEXT H 


150 RETURN 

160 PRINT 

170 FOR 1 = 1 TOE 

180 IFE>0 THEN PRINT 

190 NEXT I 

200 LET J = RND(4) 

210FORK=1 TO J 

220 PRINT “(single space)”; 

230 NEXT K 

240FORL = l TOG 

250 GOSUB100 

260 NEXT L 

270 FOR M= 1 TO F 

280 IF F>0 THEN PRINT 

290 NEXT M 

300 IF RND (15) = 5 THEN GOTO 590 
310FORN=1 TOG 
320 PRINT “(5 spaces)”; 

330 NEXT N 

340 PRINT “(Shift F Shift A Shift D)” 

350 GOSUB 120 
360 PRINT 

370 IF A=0 THEN PRINT “(Shift F Shift A 
Shift D)” 

380 INPUT OS 

390 IF D = 5 THEN GOTO 410 

400 IF OS= “F” THEN GOSUB 540 

410 IF F= 1 THEN GOTO 460 

420LETE = E + 1 

430 LET F = F -1 

440 CLS 

450 GOTO 160 

460 PRINT“HARD LUCK,”; G; “* OF THEM 
LANDED 

470 PRINT*(B*1000)-(G*200)-(10*D); “* 
POINTS” 

480 STOP 

490 PRINT “WELL DONE, YOU” 

500 PRINT “GOT THEM ALL” 

510 INPUT PS 
520 CLS 
530 GOTO 30 

540 IF J = 3 THEN LET G = G-1 

550 IF I = 3 THEN LETC=C+1 

560 IF C = 5 THEN GOTO 490 

570LETD = D + 1 

580 RETURN 

590FORQ=l TOG 

600 PRINT “(5 spaces)”; 

610 NEXT Q 

620 PRINT “(Shift M Shift H Shift N)” 

630 GOSUB 120 
640LETA= A+l 

650 PRINT “YOU GOT BLOWN UP” 

660 IF A = 2 THEN GOTO 470 

670 INPUT RS 

680 CLS 

690 GOTO 170 
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10 

LET X = 0 



20 

LET N = X 



30 

LET Y = X 



40 

LET M = X 



50 

PRINT AT M,N;"your own 

choice 



of graphic, start with 

a full 

stop" 

60 

PRINT AT Y,Xgraphic 

1" (that 

is, the 


graphic available from 

key 1 ) 


70 

PRINT AT Y,Xgraphic 

2 


80 

PRINT AT Y,Xgraphic 

3" 


90 

PRINT AT Y,X;"graphic 

4" 


100 

LET M = Y 



110 

LET N = X 



120 

LET X = X + (INKEY& = 

"8" AND 

X 


< 29) - (INKEY& = "5" 

AND X > 

2) 

130 

LET Y = Y + (INKEY$ = 

"6” AND 

Y 


< 18) - (INKEY$ = "7" 

AND Y > 

2) 

140 

GOTO 50 




B OUNCE-A-PIC, written to run 
on a IK ZX-81, draws pictures 
with a difference as the cursor 
is already bouncing and dancing 
over the screen before you input 
anything. Its direction can be con¬ 
trolled using the cursor keys—5,6, 7, 


8 . 

The cursor starts in the top left- 
hand corner of the screen but that 
can be changed easily by altering the 
zero in the first line. 

Bounce-a-Pic is from The Gateway 
Guide to the ZX-81 and ZX-80 by 
Mark Charlton. Published by Inter¬ 
face, 44-46 Earls Court Road, London 
W8 6EJ. 
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A nother game for ik zx-8i 
is Spaceys, in which a space 
ship cruises overhead. Using 
the 1 key will fire a missile, repre¬ 
sented by an asterisk, which can 
then be guided using the 8 key for 
left movement and the 0 key for 
right movement. 

When 200 ships have passed over¬ 
head your score and the best score so 
far are displayed. Hitting the middle 
of the ship scores 25 points, while 
clipping the ends rates 10. The 
missile can be guided both on the 
ground and in the air. 

Spaceys is from The Gateway 
Guide to the ZX-&1 and ZX-80 by 


Mark Charlton. Published by Inter¬ 
face of 44-46 Earls Court Road, 
London W8 6EJ. 


120 CLS 

130 PRINT AT H,Ngraphic shift N graphic 
shift B graphic shift M";AT C,P;"*" 
140 GOTO 180 + (60 AND C = H AND P >= N 

AND P < N + 3) 


10 LET T = 0 

20 LET S =' 0 

30 GOSUB 250 

40 LET P = 15 

50 FOR Z = 1 TO 20 

60 LET H = INT(RND*8) + 5 

70 FOR N = 0 TO 29 

80 LET P = P + (1 AND INKEY$ = "0" AND 

P < 31) - (1 AND INKEY& = "8" AND 

P > 0) 

90 IF INKEY& = " 1" THEN LET C0 = "C - 1" 

100 LET C = VAL C$ 

110 IF C = 0 THEN GOSUB 250 


150 NEXT N 

160 NEXT Z 

170 IF S > T THEN LET T = S 

180 PRINT "SCORE: ";S;"BEST:";T,"N/L 
TO START" 

190 INPUT A$ 

200 GOTO 280 - (260 AND A$ = "") 

210 PRINT AT H - 1, N + 1;"*";TAB N;"***"; 

TAB N + 1;"*" 

220 LET S = S + 10 + (15 AND P = N + 1+ 

230 GOSUB 250 

240 GOTO 160 

250 LET C = 19 

260 LET C$ = "C" 

270 RETURN 
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R OAD RACE is the most out¬ 
standing program using 
moving graphics and fitting 
on a IK machine we have seen so far. 
The object of the game is to steer 
your car, represented by an inverse 
H, on a twisting road while avoiding 
other cars which appear at random. 

The car moves forward auto¬ 
matically but can be steered left and 
right by using the cursor controls— 
keys 5 and 8. If you crash into 
another car or run off the road, the 
game stops and your score is dis¬ 
played—top score in the Sinclair 
Programs office was 66. 

To keep going requires some skill 
and for once it really is a game which 
can provide hours of amusement. 

Road Race was one of three 
James submitted by David Looker 
and son from Swindon, Wiltshire. 





it 

LET 
90 LET 
30 LET 
4.0 LET 
50 LET 
S0 LET- 
70 LET 
60 LET 
90 LET 
(RND^CODE 


C-CODE 1 
R -CODE 1 
F 

B-CODE ' 

N —CODE ' 

X-CODE 
Y~X 
Z 

N + C SOM C CODE 
3 3 3 *■ CM < >Ri 


i CODE “1 ts - TNT 
* i N < > X ) + c 


) 4* C IN KEY 


B-C 


N s=R 3 - CN-X3 
100 SCROLL 

110 LET Y ==Y - C INKEY $ =“ 5“ 

S rt "S " 5 

IS© IF RND> * S THEN PRINT 
,N+CINT CRND *COD£ “■ 

13© PRINT RT B,N-C; 

T X, Y”11"RT X-C, 2; **| 

14-0 LET F=F4C 

15© LET U—PEEK t PEEK 163S8fPE5K 
I6399SP56) _ 

.5© IF U < > CODE RND U < > CODE 

THEN GOTO && 

.T0 PRINT TflE Y;F 



-If 

It 
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ROCKET ATTACK 


I N Rocket Attack for IK machines 
the player is in control of a guided 
missile launcher defending the 
shores from air attack. A rocket 
launcher is situated at the bottom 
left-hand corner of the screen, while 
enemy planes approach at random 
height from the right. 

To fire, the P key is used and, 
when depressed, a rocket is 
launched, rising at 45 degrees. The 
rocket will continue its advance only 
as the key is depressed, so there is a 
measure of control over its progress. 
Aircraft can be destroyed either by 
scoring a direct hit or by leaving the 
rocket in the path of the aircraft. 

Rocket Attack was submitted by D 
E Healey of Coseley, West 
Midlands. 


10 LET 
LET 
30 LET 
40 LET 
10.0 LET 
120 LET 
130 LET 


y x s 
r-j - 
B 

P& 

i9 

29 


160 PRINT RT 21,B; 


170 

a 80 

185 
5.90 
RT C 
200 
3 400 
21 © 
220 
- 

230 

D + 
240 
250 
25 © 
£70 
400 
410 
42© 
430 
440 
450 
5 


_ 

PRINT RT 20,B; ! ‘gr 

LET Y - INT { RND * 15) + 4 

PRINT RT Y ... E; ! < = " 

IF INKEY'$ = ,, P“ THEN PRlT 

• *=. C RND E = D THEN GOT 

PRINT RT C,D;” = 

IF INKEY$ = 'P' THEN LET O 


IF INKEY*= 
R 


"P” 


THEN LET D 


IF C; = 4 THEN GOTO 4 1® 
LET E=E-R 

IF E=S5 THEN GOTO 410 
GOTO 185 
LET S=5+R 
C-LS 

LET T=T -fi 

IF T<>£. THEN GOT O 100 

PRINT RT 10,11. __ 

PRINT RT 12,11; ••SCORI 




nun 

C LOCK uses a FOR and NEXT 
loop in which to keep the time 
rather than the more conven¬ 
tional PAUSE statement, result¬ 
ing in a clearer screen display. 

Running in slow mode, the 
program does not include seconds 
and, because of zero suppression, the 
time entered as 10.09 will appear as 
10.9. 

According to author Chris 
Hutchin of Cirencester the clock is 
accurate to a few seconds a day. To 
start, type the usual RUN and, when 
prompted, put in the hour and then 
the minutes. Use BREAK to get out 
of the program. It will run on 
IK machines. 


4 

LET L=1 

5 

PRINT •'HOUR -?•* 

10 

INPUT H 

15 

PRINT "MINUTE ?*’ 

20 

INPUT M 

25 

CLS 

35 

IF M=S0 THEN GOTO 10© 

39 

PRINT RT 10,10 ; H ; ■’ : " ; M 

50 

LET M=M+L 

80 

FOR F=L TO 2732 

TO 

NEXT F 

80 

GOTO 3G 

1©0 

LET M=© 

105 

LET H-H+L 

113 

IF H >12 THEN LET H=L 

120 

CLS 

13© 

GOTO 39 
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m __ & # 
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B & i 
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* * 

* * * * 
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* 

* * 
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* * 

* * 

* 

m 

• B . * 


a 

* * * 

* 

* 

a 



91 * * 

* 

m m 

g 35 


* 

* 

§ 

e m 

* ■ 
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£ 


* 



g~ 

m 

£ 




m 

m * 





£ 




gg 

* 



£ 


a- * 


10 

LET R = 0 




20 

LET B=2 




30 

LET 0=9 




40 

PLOT fi.INT (RND *4-0 J 


50 

IF Rr80 THEN 

GOTO !@© 


60 

LET 




70 

GOTO 40 




^ IBB 

XF INKEY $ 

= ‘7* 

* THEN LET 


10 

LET B - B -hi 




3L15 

LET C=C+ (INK£Y$ = "8’ , J - ( JNKEY 

i- M S‘ 

’ ) 




12© 

PRINT PiT 

B . e c; 

* t H 


130 

PRINT RT 

BC; 

14 * 


14© 

GOTO 10© 





G RAVITY for IK ZX-81 s envis¬ 
ages aliens spreading rubbish 
across the universe. Your task 
is to take control of an earthling 
dustbin and clean the solar system 
after a particularly raucous all-night 
party. 

Gravity fills the screen with dibris 
initially and then gives you your 
waste disposal unit hich begins to 
move down the screen quickly due 
to the gravity in space—surely some 
mistake there? Using keys 6, 7 and 8, 
the dustbin can be moved left, right 
and up respectively but should you 
run off the screen, the game finishes. 

The program was sent in by Paul 
Ralphs of Manchester who, apart 
from re-designing the laws of astro¬ 
physics, made the game exception¬ 
ally difficult by giving the player an 
invisible dustbin. To help beginners 
we have inserted an asterisk but 
when you feel sufficiently confident 
delete the asterisk from line 130 but 
leave the two spaces. 
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3© DIM «(33) 

IS SLOW 

a© PRINT "RfiNDOM PRTTERW ? CY 
OR H> '* 

•3© INPUT RS 
4-3 CLS 

F9 IP NOT fi$ = *'Y" THEN GOTO £0@ 
60 LET L = INT (RN£>*33J +1 
70 LET X=2NT CRND 1&5535) 4-1 
©0 RRND X 

85 FRST 

93 FOR U = .t TO L 
100 LET ft f J) srINT CRND*!©) +1 
11© NEXT U 

>9© FOR U = I TO ©60 XL. 

XS0 FOR K=1 TO L 
2.4-3 PRINT CHR* ft (K) ; 

15© NEXT K 
2.60 NEXT U 

2 . 7 ® print x; *• C“; L; **) 

gsi stop 

LTMNT - **PATTERN-NtlfiBER- -'7 ,J 

§10 INPUT X 

230 PRINT "STRING LENGTH ?" 

340 INPUT L 
BBB CLS 

see goto 00 



U NIVERSAL PATTERNER is 
for 16K ZX-81 users and pro¬ 
duces patterns at random. 
Author W. S. Hearn, of Ilford, Essex, 
states that more than two million 
designs can be printed on the screen. 

Each pattern has a number and 
string length printed at the bottom, 
so can be recalled and adjusted using 
those numbers. Answer N for No 
when asked if a random pattern is 
required and then input the 
numbers. 
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N ightfall requires 4K ram 
and involves blowing-up sky¬ 
scrapers from a glider flying 
over a city. You start by entering a 
number between sero and 10 to 
define how high you want the sky¬ 
scrapers built. The glider is repre¬ 
sented by an inverse plus sign and 
flies from left to right, getting lower 
each time it goes across the screen. 

Because of the gradual loss of 
height it is imperative to eliminate 
the more protruding buildings 
before you crash into them. 

Pressing O will release a bomb 
and only one bomb may be in the air 
at a time. Points are scored for each 
portion of building destroyed, to 
start the game again after reducing 
the city to ruins and landing or 
crashing, enter a new level of diffi¬ 
culty to the display file. 

Nightfall was sent in by Tim 
Rogers of Richmond, Surrey. 

Nightfall © Tim D. Rogers 1982 


1 LETT = 0 

2 GOSUB1000 

10 LET A = PEEK 16396 + 256 * PEEK 16397 
+ 1 

20 LET Al = A + 724 

30 FOR B = A TO A+ 31 

40 LET C = (INT (RND * 10) + E) * 33 

45 IF B = A OR B = A + 31 THEN LET C=660 

50 FOR D = B TO B + C STEP 33 

60 POKED,128 

70 NEXTD 

80 NEXTB 

90 FOR B = Al-31 TO Al 

100 POKE B, 128 

110 NEXTB 

130 LETF = A 

140 LETD = 0 

150 LETH = F 

160 POKE F, 128 

170 LETF = F + 1 

180 IF PEEK F = 118 THEN GOTO 170 
185 IF PEEK F=0 THEN GOTO 600 
190 POKE F, 149 

200 IF D = 0 AND INKE Y$ = “0” THEN 
LETD = 1 

205 IF D=0 THEN LET H = F 
210 IF D = 1 THEN POKE H, 128 
220 IF D = 1 THEN LET H = H + 33 
225 IF H > A + 693 THEN LET D = 0 
230 IF D = 1 AND PEEK H = 0 THEN GOSUB 
500 

240 IF D = 1 THEN POKE H, 155 
250 GOTO 160 

500 FOR G = H TO A + 693 STEP 33 
510 POKE G, 128 
515 LETS = S + 1 

520 IF RND > .9 THEN GOTO 540 

530 NEXTG 

540 LETH = F 

550 LETD = 0 

560 RETURN 

600 PRINT AT 0,0; “SCORE : S, 

605 IF T < S THEN LET T = S 
610 PRINT “HI-SCORE: ”;T 
620 GOTO 2 
1010 INPUT E 

1020 IFE <0 OR E> 10 THEN GOTO 1010 

1030 CLS 

1035 LETS = 0 

1040 LETE = 10-E 

1050 RETURN 
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Star Map is another display pro¬ 
gram which draws pictures on your 
screen, if left to run for long enough. 
It sets up a black rectangle and pro¬ 
ceeds to PRINT AT and unPRINT 
AT stars into a black void. 

The programs are from Getting 
Acquainted with your ZX-81 by Tim 
Hartnell. It is published by Interface 
of 44-46 Earls Court Road, London 
W8 6EJ, and costs £4.95. 
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10 

SLOU 


10 

FOR A = 1 TU 10 


30 

FOR Q = 1 TO 32 


40 

PRINT "inverse space"; 


50 

NLXT 0 


60 

Nt XT A 


70 

PRINT AT RNU* 9, HN0*31 5 "invars 

se asterisk" 

80 

PRINT AT RN0 * 9, RN0*31 5 ".invar j 

these tuo lines are the same a; 

se space" 

90 

100 

110 

3 line 00 

PRINT AT 1,1;"inverse space" 


120 

PRINT AT 1,1 5 "non-inverse astei 

risk" 

130 

GOTO 70 



J 
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voun 

Twinkle .twinkle 




rises' 


i've a \rn-*'*L_Z .— 

•*•*2= rsfiSSTfeta 


POETRY 

POETRY 

POETRY 


A VALIANT attempt to write 
poetry within 4K is made by 
Poetry. It is very slow, taking 
up to five minutes to write a single 
poem, which fills the screen. The 
words used are stored in four long 
strings and the computer searches 
the string until it finds an asterisk; it 
then uses the word which follows 
that randomly-selected asterisk. 
From time to time the ZX-80 will 
stop writing to let you admire what it 
has written. A tap on NEWLINE will 


re-start it. To make it run on a ZX-81, 
change the way randon numbers 
are generated and change lines 70 
and 140 to LET AS = AS [2 TO]. 

Change all the asterisks in the 
strings into the letter X and change 
the 222 in lines 90 and 150 into 63. If 
you run it in slow, delete line 120. 

Poetry is from the The Gateway 
Guide to the ZX-81 and ZX-80 by 
Mark Charlton. Published by Inter¬ 
face of 44-46 Earls Court Road, 
London W-6EJ. 
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RANDOMISE 

217 

RETURN 

20 

FOR D = 0 TO 3 

2 20 

LET A$ = " EYES * FERNS * LOVERS* LOVE' 

30 

GOSUB 200 


*PARTING*TWILIGHT*VERDANT PASTURES 

AO , 

■I F- -RND ( 3 ) - 1 ‘ THEN GOSUB 200 T 


* THE FIRE*STREAM * PEBBLES *SUN LIGHT 

50 

LET N = 3 * C/4 


* MORNING*FOREST*GLADES * CLOUDS * 

60 

FOR D = N TO C 


EVENING * DAWN*FRIENDS* PATH * VISTA*" 

7 0 

LET A$ = TL$(A$) 

22 5 

LET C = RND(134)+ 3 

80 

NEXT D 

2 27 

RETURN 

90 

IF CODE(A$) = 222 THEN GOTO 140 

*2 30 

LET A# = " GLANCED*APPEARED* 

100 

IF RN D(20) = 19 THEN PRINT 


SHARING*SHADOWED* ASKING* FEARING* 

110 

NEXT B 


HOPING*SIGHING* STROLLING* 

120 

IF RN D(4) = 2 THEN INPUT B$ 


OVERHEAD* LOOKING* LANGUISHED* 

130 

GOTO 20 


CRYING * PASSING *DREAMED*BEGINNING* 

140 

LET A$ = TL$(A$) 


TURNED* MOVING * RETU RNIN G *” 

150 

IF CODE( A$) = 222 THEN PRINT " 

2 35 

LET C = RN D(J3 8) + 6 

160 

IF CODE ( A$5 ) = 222 THEN GOTO *100 

2 37 

RETURN 

170 

PRINT CHR$ (CODE (A$) ) ’; 

240 

LET A$ = "SMILING * GEN TLY * QUICKLY* 

180 

GOTO 140 


IN F EAR* S ADLY * WITH SORROW* 

200 

GOTO 210 + 10 * B 


PEACEFULLY* TOGETHER* S L.O-W LY * 

210 

LET A$ = " THEN * AN D* BOTH* FOR* TO* 


BRIGHT*EARLY*AWAY*ALWAYS * 


BUT*IF ONLY*YET*AFTER* BEFORE* 


SILVER*" 


HOWEVER* SO*IN CASE OF*AS IF* 

245 

LET C = RND(94) + C 


IF*" 

247 

RETURN 

215 

LET C = RN D(7 3) + 3 
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LUFlflfi 

LfinDER 


L UNAR LANDER is yet another 
lK program from Looker and 
son. This is a superior version of 
the lunar landing game. Your space¬ 
craft is 600ft. above the lunar landing 
pad and descends automatically at a 
velocity of 20 feet per second. 

The initial fuel reserve is 130 
gallons and to achieve a safe landing 
you must fire your retro-rocket 
thrusters—by pressing the T key—to 
slow the machine and, allowing for 
the random drift of the spacecraft, 
attempt to land on the landing pad 
displayed. 


Lunar Lander displays remaining 
fuel, altitude and velocity in the top 
right-hand corner of the screen, 
while the spacecraft descends on the 
left-hand side. Too much thrust and 
the spacecraft begins to ascend, 
shown by a negative velocity read¬ 
ing, while too great a speed in land¬ 
ing causes a crash. 


FUEL 11® 
ALT 30® 
UEL 35 


WWW 

LET N=H 


6 LET F=CODE "fc" 

8 LET RaCODE 
10 LET BaR 
15 LET C=CODE ,, 2" 

2® LET U=A 
30 GOTO F 
4-0 LET Z=A 
50 LET T =M-M 

50 LET A»INT CR-U^CJ * (A> =V.'C> 

70 PRINT RT B-Z , N; ** **; RT B-Z, 

+M,N+M; " ** V* 

80 LET N*N+RND . S 

30 PRINT RT B-fl.N; ^ 

100 IF INKEV$a‘T“ AND F>«CODE " 
THEN LET T-CODE 

— --- THEN PRINT RT 


105 IF T=CODE 
B-A+H^N+H; "U** 

110 LET F =F -T 
120 LET U=U+CODE *T**-T 
-- — “FUEL 


130 PRINT RT M,B, 
TRB B;“ALT ”;A*C;" 

; RT CODE •* 




THEN GOTO CODE "C** 
THEN GOTO CODE **COS 

160 PRINT RT M,M;"LANDED" 

17© STOP 

200 PRINT RT M^H;“CRASHED" 
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A S COMMANDER of a Force 
Field which guards a city you 
have to defend it against a 
squadron of hostile UFOs. The force 
field has to be controlled to destroy 
enemy bombs before they hit the 
city. If the field is activated too soon 
the power is dissipated and will not 
destroy the bomb. 

The radar screen identifies each 
UFO with a number from 1 to 9 and 
you have to hit the correct number 
key to identify the UFO which 


dropped the bomb when it enters the 
force field. There are four levels of 
difficulty. 

The program has been supplied by 
Video Software of Stourbridge, 
whose ambitious products include a 
financial modelling package, 
graphics, a private version of 
teletext/viewdata (sic], and games 
ranging from sports to the Stock 
Exchange. All are available on the 
ZX-81 and most on the ZX-80 with 
8K RAM. 



1 REM 

2 REM 

3 REM 
4. REM 

5 REM 

6 REM 

7 REM _ 

15 DIM H$(4,8> 

20 DIM H(4) 

35 GOTO 1000 
4-0 SflUE "FORCE—FI ELS'' 
4-5 GOTO ISO© 

2© REM 

91 REM 

92 REM 

93 REM 
10© REM 


110 LET UFO=INT (RNDiS+I 
120 LET BOMB=((INT CUFO- 
FO/2+0.4.) ) *2) ) *-4.) +4 
130 FOR S =BOMB TO 14 
14© PLOT UFO*6,36-S 
150 UNPLOT UFOJ6/36-S 
160 NEXT S 

200 IF CODE «INKEY$) -23=1 
N GOTO 300 

210 FOR 1=1 TO ((5-DIFF) 

' 10 


UFO THE 
} -MIS 
(INKEY$)-2S=UFO THE 


TO lc 


22© IF CODE 
N GOTO 400 
23© NEXT I 
300 FOR S=1 
310 PLOT UFO*6,14—S 
320 UNPLOT UFO*6,16-S 

JOB NfcX i 5 

340 GOSUB 500 
350 LET MISS=MISS+1 
390 RETURN 
400 GOSUB 600 
410 LET HIT=HIT+1 
42© RETURN 

500 REM ““ 

501 REM 

502 REM ___ 

510 PRINT RT 19,UFO*3-2; 
515 PRINT RT 20,050*3-2; 
520 PRINT RT 21,UFO*3-2; 
325- PROSE- 10- 

530 PRINT RT 19,UFO*3-2; 
535 PRINT RT 20,UFO*3-2; 
540 PRINT RT 21 ,UFO*3-2; 
590 RETURN 
600- P-EM- ‘ 

601 REM 

S02 REM ____ 

510 PRINT RT 12,UFO*3-1; 
620 PRUSE 10 

630 PRINT RT 12,UFO*3-l; 
640 PRUSE 1© 

650 PRINT RT 12,UFO*3-1; 
660 PRUSE 10 

S7® PRINT RT 12,UFO*3-i; 
S90 RETURN 


liLt* 


10 . 0-0 

1001 

1002 

1010 

1020 

1030 

1035 

1040 

1045 

1050 

1055 

1060 

1065 

1070 

1075 


REM. 

REM 
REM 
REM 

REM MENU 
REM : 

GOSU B 900© 

REM ’ _ 

GOTO 1050+M*10 
GOSUB 5000 
GOTO 1300 
GOSUB 2G00 
GOTO 1100 
GOSUB 700© 

GOTO 100© 


1060 CLS 

1085 P RINT "CONNECT RECORDER RHt 
TYPE BBSS' 

1090 INPUT 05 
1095 GOTO 4© 

110© REM 
1105 CLS 

1110 IF HIT <H tDIFF) THEN GOTO Si 
60 

1120 LET H(DIFF)=HIT 

1130 PRINT "YOU HRUE R HIGH JsCOR 

114© PRINT "UHfiT IS YOUR NRME?" 

1150 INPUT 05 

1155 LET H$(DIFF)=0$ 

1160 GOSUB 8000 
1170 GOTO 1000 

2000 REM “““““““““ 

2001 REM 

2002 REM _ 

2005 LET FF =3 
2040 GOSUB 6000 
2050 LET HIT =0 
2060 LET MISS =0 
2070 GOSUB 3000 
2060 FOR B = 1 TO 50 
2090 REM : 

2100 REM BOMBS 
2110 REM : 

2115 SLOU 
2120 GOSUB 1O0 

2130 PRINT RT 11.26, I NT H IT; 


2135 PRINT RT 12,26: 
2140 NEXT B 
2150 PRINT RT 0,6 
2160 INPUT L$ 

2170 RETURN 
3000 REM * “ 


3001 REM 

3002 REM __— 

3110 FOR L=I TO 4 STEP 
3120 FOR C = L ,'3*4 TO 27 STEP 
3130 REM : 

3140 REM SPACESHIP 
3150 REM : 

3160 GOSUB 4000 
3170 NEXT C 
3180 NEXT L 
3190 FOR L = 1 TO FF 
3200 FOR L = 1 TO FF 
3210 PRINT RT 10+L,©;"$$ 


3220 NEXT L 
3230 PRINT RT 11,2; 

3300 PRINT RT 19,0; 

m I 

3310 PRINT RT 20,0. 


wffilit!; 


3330 PRINT RT 
N READY"; 

3340 INPUT L$ 

3350 PRINT RT 

3360 RETURN 

4000 REM 
400’S. REM 

4002 REM ___ 

4010 PRINT RT 
2) >3 + 156) ; **» "J 
4020 PRINT RT L +1,C; " 

4030 RETURN 
4040 REM : 

4050 REM END SPACESHIP 
4060 REM 

5000 REM 

5001 REM 

5002 REM 
5100 CLS 


"PRESS My 


' ;CHR$ fSC + 


5110 PRINT 

5120 PRINT 
OF R FORCE 
5130 PRINT 
CTING YOUR 
5140 PRINT 
Y HOSTILE 
5150 PRINT 
CRN PIERCE 
5160 PRINT 
OU CRN STOI 
5170 PRINT 
ING THE 
5180 PRINT 
OMB RS IT 
5190 PRINT 
FIELD. 
5200 PRINT 

5210 PRINT 
TY IS DEBT 
5220 PRINT 
THE POWER 
523® PRINT 
IELD . 

5240 PRINT 

5250 PRINT 
THE ENEMY 
5260 PRINT 
GREEN DISP- 
5270 PRINT 
RND R SET 
5280 PRINT 
THE FORCE 
5290 PRINT 

5300 PRINT 


„/OU RRE IN COMMAND 
^ FIELD. IT IS PAOTE 
CITY FROM ATTACK S 
UFOS. THEIR BOMBS 
s THE FORCE FIELD. V 
THEM BY COHCENTRBT 
FORCE AROUND THE B 
PRSSES THROUGH THE 


% 

% 

s 

% 

<s 

% 

4 

s 

>■ 


IF YOU FRIL THE Cl 
ROVED RND WITH IT 
WHICH DRIVES THE F 

TO HELP YOU DEFEHT 
YOU HRUE R RRDRR 3 
PLRYING THE BRTTLE 
OF KEYS TO CONTROL 
FIELD. 


5310 PRINT 


5320 INPUT L$ 
5330 CLS ^ 

534-0 |||| PRINT ||| "W * 

535© PRINT% 

RELERSES R if 
5360 PRINT "M 
TIFY THE IT- 
5370 PRINT 
MSERS 1-9. IT 
5380 PRINT 
NSIDE THE 
5390 PRINT 
THE RIGHT if 
5400 PRINT fti 

5410 PR INTI 


4 


WHEN AN ENEMY UFO 
BOMB YOU MUST IDEM 
UFO - THEY HAVE MU 
UHEN THE BOMS IS X 
FORCE FIELD PRESS 
KEY TO DESTROY IT, 


“IELD. TOO LRTE RH 


5420 PRINT "B TOO SOON RND YOU U 
ERKEN THE »" 

5430 PRINT "M F 
D YOU MISS.IT* 

5450 PRINT 


5470 INPUT L$ 
5480 RETU RN 
5500 REM ■M 
-REM- 


fr*^* r* 
"P IIP** P-P IP s ss 
I uilkbi I SWL.V 


5501 

5502 rem mmammmma 

5510 CLS ___ _ 

5520 PRINT P“ PI PI P" f* 

5530 PRINT 

5540 PRINT "I 

5550 PRINT "■ 

5560 PRINT 
5570 PRINT 
5580 RETURN 

6000 REM 

6001 REM 

6002 REM 
6010 CLS 
6020 PRINT 
UEL" 

6030 PRINT 
6040 PRINT 
8050 PRINT 
6060 PRINT 
8070 PRINT 
6080 PRINT 
6090 PRINT 
OR 4) " 

6100 INPUT DIFF 
6110 IF DIFF <1 OR DIFF>4 THEN GO 
TO 6000 
6120 CLS 
6130 RAND 
6140 RETURN 
7000 REM B 
7010 FOR L=1 TO 
7020 LET H(L 5 =0 
7030 LET H$CL>=" 

7040 NEXT L 
7050 RETURN 
8000 REM 
8010 CLS 
8020 PRINT 


"CHOOSE DIFFICULTY LE 


"1. EASY" 

"2. HARDER" 

”3. DIFFICULT" 

"4. IMPOSSIBLE" 

"CHOOSE LEUEL i 1,2,3 



S050 PRINT LEUEL ji NAME 

m SCORE 3T . 

8060 PRINT ■ ■ fflnmmMmm nii^ji-niiTiimnnnmniTn- 

****18^ 

8070 FOR L=1 TO 4 _ 

8080 PRINT "M "i LiTAB 6 ,"W 
L 31 ; H (L) ; TAB 3®.; ”!" 

8090 NEXT L 
8100 PRINT 

8110 FOR L = 1 TO 60 
8120 NEXT L 
8130 RETURN 

9000 REM 

9001 REM 
yawci Htri . 

9010 GOSUI 
902Q PRINT 


9030 PRINT 
U 

9040 PRINT 

9050TRINT" 

9060 PRINT 
9070 PRINT 

9080 PRINT 
ES 

9090 PRINT 
N TAPE 
9100 PRINT 




f 


FORCE-FIELD HEN 




*• 

l 

INSTRUCTIONS 

% 

2 

PLAY THE GAME 

5r 

3 

RESET HIGH SCOP 


4 

SAUE THE GAME O 







YOUR SELECTION 


9110 PRINT 
(1/2/3/4) ** 

9120 INPUT G* . _ 

9130 IF CODE (Q$) <CODE ("1"> OR 
CODE <Q*> >CODE ("4") THEN GOTO 9 
000 

9140 LET M =CODE (0$) -29 
9150 RETURN 
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IB 

CLS 



2© 

INPUT Rife 



30 

LET 



40 

LET B~0 



50 

GOTO 60 



60 

70 

INPUT ft* 
RETURN 



80 

IF INKEY $="6“ 

HMD R 

< >R0 THE 

H LET 




90 

IF INKEY$~ ie 5 f ‘ 

BHD B 

<>0 THEN 

LET 

sr R — 1 



100 

IF INKtY$“ ! '7 st 

RND 3 

<>0 THEN 

LET 

B ~B - 1 


<>20 THE 

110 

IF IMKEY$ = !i 6” 

hNL> b 

N LET 

' B 4 1 



120 

IF INKE¥$ = " l' 1 

THEM 

GOSUB 60 

130 

IF INKEY jt = “ Z ** 

THEN 

RUM 

140 

PRINT AT SR; 

R 


150 

SOTO 8@ 




L INE DRAWER provides free- 
format drawing with any 
character or characters you 
wish to select. Having entered your 
chosen symbol, use the cursor 
controls—keys 5, 6, 7, 8—to draw 
pictures on a square slightly smaller 
than the screen. To change charac¬ 
ters, press key 1. 

The program will run on lK 
machines and was sent by 16-year- 
old Stephen Adams. 
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T HE IDEA of Bomb is to blow up 
undefined enemies, represent¬ 
ed by an inverse space. Your 
bomb moves across the top of the 
screen and pressing any key will 
release it. Only one bomb can be in 
the air at any time, limiting the 
attraction of the game, but it will run 
on lK machines. 

For those with slow mode the 
PAUSE and POKE may be removed 
by deleting lines 100 and 110. Bomb 
was submitted by David Goodup. 


1 3 © '* 


LFT B$ = " (PEEK CREEK 1639S+S 
5©*PEEK 16399) > =128- 
6 LET C=URL ”0 ” 

•? LET D=C 
8 LE I o 

i© let k=unl ■■<=.. 

£•© FOR X =UhL “l- Tu vhL 

~ p,-p ' 1 TO URl w 1 _ _ 

50 print RT URL “9' 1 ,RHO-*UfiL “ O 

1 ”; 

SO NEXT ft 

70 LET B=RND*K _ 

80 FOR P.=UfiL '* 0** i O UHL 
90 PRINT RT ts... K.; “ > ~ 

108 PAUSE URL ” 50” 

tiff ^n^mck sgn'd 

"l&SVgF'&X'cJmi. **ON »♦*.< 

NQ i SbN O . a . s. r—^ . ii it . ■ 

14-© PRINT RT U-UfiL x = 

C , D : _ 

15© LET 5=5+URL b§ 

15© LET D=L>* (C<su _, _, 

17® PRINT CHR$ CURL H'3 

; RT “ 

18© NEXT h 

190 NEXT X ____ 

2©S PRINT S; ** POINTS 
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A dding machine allows 

you to keep a running total of 
your expenditures and 
income—income is entered as a 
negative figure. First enter the 
amount of money involved—press 
NEWLINE and then enter a descrip¬ 
tion of the item. As it stands the pro¬ 
gram will off-load each item auto¬ 
matically to a printer with a running 
total, though those lines can easily be 
deleted and the same information is 
displayed automatically on the 
screen. 

Adding Machine is from Mike 
Salem of Hilderbay Ltd. 




BANK OF ENGLAND 







10 REM RDDIN6 HRCHINE. 

2© REM HILDERBRY LTD 1982 
3© REM 

4© REH SOMETXHES EUEN UERY SXH 
RLE PROGRRMS CRN BE RERLLY USEFU 
L • 

5© REM 
6© REM 
7© DLS 

8© PRINT “RDDING MRCHINE * BY H 
ILDERBRY LTD** 

9© PRINT 
10© PRINT 

11© PRINT “E NTER NU MBERS TO ROD' 
FOLLOWED BY ffifeBiBBBBgk PRECEDE NU 
MBER BY MINUS SIGN TO SUBT 

RRCT IT . ** 

112 PRINT 

114 PRINT "RFTER ENTERING ERCH 
NUMBER YOU MRY (OPTIONRLLY) ENTE 
R R FEU CHRRRCTERS WH ICH WI LL BE 
PRINTED. THEN PRESS iaS» RQR 
XN • “ 

120 PRINT 

130 PRINT “ENTER fl BSB BBSBBBBB B R 
FTER LRST NUMBER. “ aasssssHESMss 

132 PRINT RT 21,©;“PRESS ft KEY 
TO STRRT.“ 

134 PRUSE 4E4 
14© REM 

150 REM RLL SftTEMENTS WITH NOME 
ERS BELOW 170 CRN BE DELETED. 

16© REM 
170 CLS 
180 SCROLL 

190 LPRINT , ‘’RUNNING" 

21© SCROLL 

22© PRINT “RDDENDS** . **SUM* e 
230 LPRINT “RDDENDS** t “SUM* 9 


24© SCROLL 
250 PRINT 
26© LPRINT 
270 LET SUM—© 

28© INPUT X 
285 INPUT Q& 

29© LET SUM—SUM -s-X 
30© SCROLL 

310 PRINT X; “ “ , , SUM 

320 LPRINT X; 19 “ ; . SUM 

33© GOTO 28© 

50© SPUE "RDDES" 

5©1 RUN 


RDDENDS 


RUNNING 

SUM 


86 RENT 

86 

45 FOOD 

131 

37 ELECTRICITY 

le>8 

~48© SftLRRY 

-3:12 

62 PHONE 

-25© 

258 fiCCESS 

3 

RDDENDS 

SUM 

36 RENT 

86 

45 FOOD 

131 

37 ELECTRICITY' 

IBS 

-48© SftLRRY* 

-312 

S2 PHONE 

-25© 

258 ACCESS 

8 

-523000 POOLS WIN 
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F OR THOSE struggling with 
mathematics homework, 

Quadratic Equation may pro¬ 
vide a little relief. Both roots are 
printed if there are two real roots, 
while one root is printed if they are 
equal and both the real and imagin¬ 
ary parts of imaginary roots. It is 
clear from the output which roots 
are printed. 

Quadratic Equation is from Getting 
Acquainted with your ZX-81 by Tim 
Hartnell. Published by Interface, 
44-46 Earls Court Road, London 
W8 6EJ. 

uz 


s 

PRINT 

"LNTLR A" 

in 

INPUT 

X 

IS 

PRINT 

X, "LNTLR R" 

2? 

INPUT 

Y 

2b 

PRINT 

Y, "LNTLR C" 

311 

INPUT 

2 

3S 

CL S 


4(1 

LET Y 

= - Y/2/X 

4S 

LET Q 

= Y*Y - Z/X 

bfif 

IF Q = 

! 0 THLN GOTO 200 

5b 

IF Q > 

0 THLN GOTO 300 

60 

LET L 

= bQR (-Q ) 

65 

PRINT 

"IMAGINARY ROOTS:" 

70 

PRINT 

""RLAL" ROOT * ";Y 

7b 

PRINT 

"IMAGINARY ROOT * ";E 

80 

STOP 


200 

PRINT 

"LQUAL ROOTS: * ";Y 

210 

STOP 


300 

PRINT 

"RLAL ROOTS:" 

310 

PRINT 

,Y + SQR a 

320 

PRINT 

,Y - SQR Q 



* 


Wir 

<%>*<? 102 

io ***!$£** r ^ 
% r VT'tfVT ** V 
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Q UEST is an adventure pro¬ 
gram based on a journey 
through a cave system, the 
objective being to amass a 
personal sum of £100. Money is 
gained by killing monsters and you 
start with a strength rating of 20. On 
being attacked by a resident 
monster, any instruction which 
takes the fancy may be entered, so 
long as it does not begin with the 
letters R or G. 

Thus, instructions such as shoot, 
hit, stab, bash or, for the gentler 
among you, perhaps even tickle, may 
be entered and a random score is 


assigned to tell you how you fared. 

Weaker monsters can be killed by 
one action but each attempt reduces 
your strength rating and when it 
equals zero you are unfortunately 
extinct. 

Having killed a monster you may 
rest (key R), which gives you two 
strength points, or continue (key G) 
but resting involves the danger that 
another monster sneaks up on you. 
Finding a magic ring makes you 
invisible and you can run away in 
the middle of a battle. A magic staff 
(key G) doubles fighting power for 
the rest of the game, while a magic 


potion doubles strength only for that 
attempt. 

If strength diminishes during a 
battle, a sum of money can be traded 
for strength by typing Change as a 
course of action—£1 equals three 
strength points. To clear the pro¬ 
gram, press Stop. 

The program is from a tape of pro¬ 
grams produced by Richard Sheperd 
Software of Maidenhead, Berkshire. 
Called Bargain Bytes 1, it comprises 
eight programs—five games and 
three covering bank accounts, work¬ 
ing-out loans and foreign exchange 
conversion. It costs £5. 
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The Program 
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UNFORTUNftTELV^THE DEADLY RATTLES 
NRKE HRS JUST KILLED YOU. 


\i 



HOUEUER,I LIKED THE URY YOU 
PLAYED SO I AH GOING TO OFFER TO 
REINCARNATE YOU 
PRESS NEULINE TO CONTINUE 


154 IF B$“*‘CHANGE“ THEN GOTO 37 

00 

155 IF ="G" AND F=1 AND J = 

0 THEN GOTO 105 

157 IF * X> = “G“ AND J = 1 THEN P 

RINT “YOU CANNOT GO ON BECAUSE O 
sr R “ - H i|i 

160 IF B$rX)~“G“ AND J=© THEh4 P 
PINT “YOU DO HOT HRUE R HAGIC R1 

NG ,! 

162 IF BS<X*~ ,, G‘ r THEN GOTO 14-0 
169 GOTO 6500. 

172 IF R < I THEN PRINT “THE *\; M$ 
“ IS DEAD“ 

173 IF R<1 THEM PAUSE 1©© 

174- IF R<1 THEN LET C=C+CR5H 
176 IF R<1 THEN GOTO IBS 

176 LET DrD-INT CRND»8) 

177 IF D<1 THEN GOTO 4-000 
176 XF 050 THEN LET D=D-3 
1S5 XF L=3 THEN PAUSE 5© 

166 XF L=G THEN CLS 

166 PRINT “YOU “;B$;“ THE “;M$ 
190 IF L=3 THEN LET L =© 

131 PRINT “THE “ ; H£; “ HITS BRCK 


1 

REM 

“ COPY*UR ITE R « J . SHEPHERD 

135 

1382** 

75 LET 

K $ = “ UNEXPECTEDLY** 

1000 

2010 

80 

LET 

0=0 

1015 

85 

LET 

F=© 

1820 

30 

LET 

e=© 

1©3© 

32 

LET 

C$ = **G“ 

1100 

35 

LET 

L=© 

1185 

36 

LET 

J=© 

111© 

100 

LET 

D=20 

112© 

101 

GOTO 3000 

1200 

103 

LET 

M=© 

121© 

1©4 

LET 

L=0 

1215 

105 

106 

CLS 

PRINT “THERE IS NO DANGER»W 

1228 

123© 


P 

O 


THEN G 


ILL YOU REST OR GO ON*?“ 

107 INPUT C$ 

106 IF J=1 AND C$flJs M 6 M THEN 
PINT “YOU CANNOT GO ON BECAUSE 
F R “ ; H $ 

103 IF C$(1)=“R“ THEN LET D=D+2 

110 IF C$41)=“R“ AND INT (RND*X 
©)>5 THEN GOTO 103 

111 IF J = 1 RND 
OTO 8020 

112 IF C$«1*=“R“ THEN LET K$=°U 
HILST RESTING" 

*113 IF C$tX>=“G“ THEN LET K$ = “U 
NEXPECTEDLY" 

114 LET X =INT 4RNDfl0) 

115 CLS 

116 LET M=© 

117 IF 0=100 THEN GOTO 2500 

118 IF C$CI>=“R“ THEN GOTO 120 

113 IF INT (RND^10)>5 THEN GOTO 
800© 

120 GOSUB 10©0 +4100^X) 

122 LET C* = ‘*“ 

127 IF M >=1 THEN GOTO 140 

130 PRINT “YOU ARE ATTACKED **;K 

$ 

131 PRINT “BY THE M$ 

133 LET K $=" UNEXPECTEDLY ** 

140 PRINT "UHAT ARE YOU GOING T 
O DO?" 

145 PRINT “YOU HRUE R RESISTRNC 
E OF “;D 

147 PRINT “YOU HRUE £“;C 
150 INPUT B$ 

15X LET H ~H •¥ 1 
152 LET L=L + 1 


13©0 

131© 

1315 

132© 

1330 

1400 

1410 

1415 

142© 

143© 

150© 

151© 

1515 

1520 

153© 

IS©© 

1610 

ISIS 

162© 

1630 

170© 


- 


J l© 
f 15 
172© 
173© 
180 © 
161© 
1615 
1820 
183© 
1300 
131© 
1315 
1320 
133© 


GOTO 127 

LET H$="DEADLY RATTLESNAKE" 
LET R=8 

IF 050 THEN LET R = 12 

LET CASH=5 

RETURN 

LET N$ = !, TARANTULft SPIDER** 
LET R=10 

IF 05© THEN LET R = 15 
RETURN 

LET H$="GIANT CENTIPEDE" 

LET R=7 

IF 050 THEN* LEf R=1I 

LET CASH=7 

RETURN 

LET M $ = “POISONOUS SNAIL" 

LET R=2 

IF 0 5© THEN LET R=4 

LET CASH=I 

RETURN 

LET M$="CAVE BEAR- 
LET R = l© 

IF 0 5© THEN LET R = 15 

LET CASH =9 

RETURN 

LET H$="UAHPIRE BAT" 

LET R =5 

IF 05© THEN LET R=3 

LET CASH—4 

RETURN 

LET H$="GIANT RAT" 

LET R=7 

XF 05© THEN LET R = ll 

LET CASH=7 

RETURN 

LET H$="SABRE TOOTHED TIGER 
LET R=3 

IF 0 5© THEN LET R = 18 

LET CASH=7 

RETURN 

LET = “ FIERCE UNICORN** 

LET R=5 

XF 0 5© THEN LET R=8 

LET CASH=7 

RETURN 

LET H$="ANGRY GORILLA" 

LET R=9 

IF ' 0 5© THEN LET R = 15 

LET CASH-3 

RETURN 
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20©0 LET ‘CREEPING FUNGUS” 

2310 LET R=6 

2015 IF 058 THEN LET R=9 
2020 LET CRSH-5 
2030 RETURN 
2500 CLS 

2510 PRINT "££££££££££££££££££££ 
££££££££££££" 

2515 PRINT 

2516 PRINT "CONGRfiTUL^TIONS,YOU 
HRUE UON" 

2517 PRINT 

25is print "££££££££££££££££££££ 
£:£££££££££££" 

2519 PRINT RT 21,0;"PRESS NEULIN 
E TO CONTINUE” 


§ 52© IF INKEY$a ,,u THEN GOTO 2520 
530 IF INKEY$="R" THEN NEW 
2535 CCS 
2540 GOTO 10 

3000 PRINT TRB 10; "RDUENTURE" 
3010 PRINT 
3©20 PRINT 

303© PRINT "YOU RRE HRKING YOUR 
WHY THROUGH R CftUE SYSTEM.YOUR Q 
BUECTIUE IS TO GRIN £100. URRIO 
US HGNSTERS WILL RTTRCK YOU RND 
YOU WILL BE PRID IF YOU KIEL. THE 
M . " 

3035 PRINT "THERE RRE RLSQ RHYS I 
CRL HRZRRDS WHICH WILL DEPLETE Y 
OUR STRENGTH " 

303S PRINT 
3037 PRINT 

304-0 PRINT "PRESS NEWLINE TO CON 
TINUE" 

304-5 PRINT "GOOD LUCK" 

3050 IF INKEY$="" THEN GOTO 305© 
306© GOTO 500© 

40©0 CLS 

4010 PRINT "UNFORTUNATELY ,THE " ; 
M$;" HRS JUST KILLED YOU." 

4012 PRINT RT l©,!®;"* - 
4013 PRINT RT 11,10;" 

4014 PRINT RT 12,10;“ 

4015 PRINT RT 13.. 1©; "a 
4016 PRU5E 10© 

4020 PRINT RT 17.. "HOWEUER, I LX 
KED THE URY YOU PLPYED SO I 

RM GOING TO OFFER TOREXNCRRNRTE 
YOU" 

4021 PRINT "PRESS HEULIME TO CON 
TINUE" 

4022 IF INKEY$="" THEN GOTO 4022 
4023 IF INKEY$="R" THEN NEW 
404© CLS 
4065 LET D=2© 

4066 LET C-© 

4067 LET L=© 

406S LET H=0 
4080 GOTO 1© 

500© LET U = INT (RND+103 

5001 IF 0=1©© THEN GOTO 250© 

5002 IF U>5 THEN GOTO 114 

5003 IF U < 5 THEN GOTO 103 

5005 GOTO 0200 

6500 LET R=R-INT (RND+4) 

6501 IF 0=^1 THEN LET R ~R — INT (RH 
D*4> 

6505 IF M>3 THEN GOTO 7©0© 

6510 IF B$<1? THEN PRINT 



6520 IF B$ ( 1) < > " H " A N D; s * (1) < > "S 

6530 GOTO 17© 

Si© IF M=4 THEN P RINT 

xnt 

PRINT 

7®3© 1 ^F M=7 THEN PRINT 



7035 PRUSE 5© 

704© GOTO 170 

800© GOSUB 8®®®+t1®0*X>+10© 

8010 PRINT "YOUR PROGRESS IS IMP 
EQED" 

8015 PRINT "BY R";H$ 

802© PRINT "UHRT RRE YOU GOING T 
O DO? H 


8021 LET U=1 
S©25 INPUT 1$ 

8026 LET I=INT lRND*X©> 

8027 IF I$C1>-"R" THEN GOTO 1®3 
803© PRINT "IF YOU 1$; "✓XT UIL 
L REDUCE YOUR STRENGH BY ";I 

8031 PRINT "YOUR RURXLRBLE 5TREN 
GTH IS ";D 

8035 PRINT "WOULD YOU RRTHER DO 
SOMETHING ELSE?" 

8®37 INPUT T$ 

8038 CLS 

8032 IF T$C1>="R" THEN GOTO 103 
804© IF T$(i)~"Y" THEN GOTO 801© 
8041 IF D <I THEN PRINT "YOUR STR 
ENGTH IS NOT ENOUGH" 


8042 IF D <I THEN PRINT "UHRT RRE 
YOU GOING TO DOT" 

8043 IF D <I THEN GOTO 8337 
805© LET D^D-I 

8051 LET U=© 

806© GOTO SCO© 

8100 LET ROOF FRLL" 

8150 RETURN 

8200 LET H$~" WIDE CHRSH" 

8250 RETURN 

8300 LET H$="N UNDERGROUND RIUER 


835© 

8400 

845© 

8500 

8560 

86©0 

885© 

870© 


RETURN 
LET H$= 
RETURN 
LET H$= 
RETURN 
LET 

RETURN 
LET H$ = 


SHPRP FRLL" 

DERD END- 
PRECIPICE" 

FLOODED PflSSRGEURY 


8750 RETURN 

8800 LET H$=" ROCK SLIP" 

8850 RETURN 

8900 LET B$=" SHEER ROCK FRCE" 
895© RETURN 

90©0 LET B$=" URTERFPLL“ 

90S© RETURN 

9100 LET UNOERGRQUND LAKE" 

915® RETURN 

92©0 LET G-INT CRND+43 

9205 CLS 

921© IF G-® RND F^l THEM GOTO 32 
©0 

9215 IF G-i RND 0^1 THEN GOTO 92 
0© 

9220 GOSUB 930©+ CG*1©®> 

923© PRINT "PRESS NEWLINE TO CON 
TINUE" 

9231 IF INKEYTHEM GOTO 9231 
9240 CLS 
925® GOTO 5© 0© 

93®Q PRINT 


931© LET F-l 

932© PRINT "THIS RLLOUS YOU TO 
ESCAPE FROM MONSTERS IN THE MIDP 
LE OF R BATTLE” 

933© RETURN 
94®0 PRINT ‘ 


941® LET 0—1 
942® RETURN 

95®0 PRINT * _ 

951® LET C=C+20 
9520 RETURN 
960© PRINT 


961® LET D=D*2 
962© RETURN 
970© CLS 

9710 PRINT "ENTER MONEY TO BE CD 
NUERTED TO STRENGTH” 

9720 INPUT S 

9725 IF C<S THEN GOTO 972® 

9730 LET C=C-S 
975© LET D=D+(3*S> 

9760 CLS 
9780 GOTO 191 

9900 SRUE "OUESB‘* 

9901 RUN 
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I F YOU are wondering what to do 
with your printer why not try ZX 
Banners which will print out 
banners of as many letters as you 
want each three inches high. Letters 
are printed sideways, so the length 
of a banner is restricted only by the 
amount of paper in the printer. 


While letters and graphics will 
work, functions will not. The width 
of a letter can be changed by altering 
line 910—e.g., by inserting FOR F=1 
to 4 would double the width. 

ZX Banners was sent by 
Christopher Holt, of Gravesend, 
Kent. 


1 

REM "BONNERS** 


10 

DIM D$ (64-> 


20 

INPUT M* 


30 

FOST 


4-0 

FOR C = 1 TO LEN M* 


50 

LET 0*=M*fC> 


60 

IF CODE R$ > S3 THEN LET fi* = 

c 

HP* 

fCODE M*tCA-128> 


©5 

FOR N=0 TO 7 


?© 

LET Z=PEEK C76S0+N+8*CODE 

R 




©0 

FOR X = 1 TO S 


00 

LET Z=Z/2 


100 

IF Z < >INT Z THEN GOTO 500 


110 

LET D$ fN*S+X) = ,, 0" 


115 

IF CODE M* CO >63 THEN LET 

D 

* CN*S+X> ="1“ 


120 

IF N*8+X=©4- THEN GOSUB 000 

130 

LET Z=INT Z 


14-0 

NEXT X 


150 

NEXT N 


16© 

NEXT C 


170 

SLOU 


150 

GOTO 1010 


500 

LET D$ (N*-S+X) =5 , *1" 
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sas IF CODE M*(C> >63 THEN LET D 
$(N*e+X>= "0" 

510 GOTO 120 

900 FOR P-3 TO 1 STEP -1 

910 FOR F = i TO a 

920 FOR E=7 TO O STEP -1 

93 0 IF D*lE*8-J-P> ***i" THEN LPRIN 


940 IF D* (E*8+P) — ** 0 ** THEN LPRIN 

Y »* ii • 

950 NEXT E 
960 NEXT F 
970 NEXT P 
9©0 RETURN 
1000 SPUE " BANNERS" 

1010 CLS 

1090 PRINT TRB 8; , - glSMMaaB , ‘ 
1030 PRINT TRB 8; " *■*•**■*****•*•" 
104.0 PRINT , , ; "jjHIS PROGRAM WILL 
PRINT ON THE UBS IBI^IglStSO LETTER 
5 AND SYMBOLS 3"" HIGH IN THE F 
ORM OF BANNERS** 

1050 PRINT , , ; **BHE LENGHT OF THE 
BANNER IS UP TO YOU. ENTER BEL 
QU AND PRESS NEU LINE" 


1060 PRINT ,, 
ICS WILL WORK 

T" 

1098 GOTO 10 


"BETTERS AND GRAPH 
FUNCTIONS WILL NO 


EXAMPLES OF THE PRINT ARE 
ENCLOSED 

THE WIDTH OF THE LETTER CRN BE 
ALLTERED BY CHANGING LINE 910 
EG. 910 FOR F = 1 TO 4 
WOULD DOUBLE THE WIDTH 
































































D emonstration plots 

uses some of the extra func¬ 
tions available on the ZX-81. 
Using spirals and sines, the program 


can create an effective demonstra¬ 
tion program if you have sufficient 
memory. 

Run it in slow mode. 





10 

FOR A = 1 TO 100 

20 

LET B = PI*A/50 

30 

PRINT AT 9*CUS(B) + 10, 14*SIN(B) + 15;"invsrse 
space" 

40 

NEXT A 

30 

PAUSE 200 

60 

CL 5 

70 

FOR A = 1 TO 400 

00 

LET 8 = PI*A/50 

85 

LET C = (400 - A)/400 

90 

PLOT (20.3*C06(B) + 30)*C, (20»5IN(B) * 20)»C 

100 

NEXT A 

110 

PAUSE 200 

120 

CL S 

130 

FOR A = 2 TO 120 

140 

LET 8 =■ A*PI/30 

150 

PLOT A/2,SIN(0)*20 + 20 

160 

NEXT A 

170 

PAUSE 200 

180 

CL S 

190 

FOR C = 1 T(l 2 

200 

FOR A = 2 TO 120 

210 

IF C = 1 THEN LET B = A*PI/60 

220 

IF C = 2 THEN LET B = -A*PI/60 

230 

PLOT A/2, 5IN(8)*20 + 20 

240 

NEXT A 

250 

NEXT C 

If you wish this to be a continuous demonstration, add: 

2 60 

PAUSC 2W 

270 

CL S 

280 

RUN 
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O HM’S LAW, by Ken North, 
allows you to use Ohm’s law 
to work out the value of volts, 
amps or ohms when you know two 
but not the third. Enter the known 
values when prompted, using zero 
for the unkown value. The display is 
particularly effective. 


sr_ 

QHHS LhU REM NORTH 

10 

Let t=0 

30 

LET u=e 


LET R=© 

4-0 

F' RINT hT a , 10; ”uHM5 LHU '’ 

=10 

PRINT PT 4. ,0-; "INPUT UP LUES 

K N D Q F O R U r4 K N U U N 

5=>0 

PRINT PT 6,0; "UQLT5 **.; 

S3 

INPUT U 

y3 

PRINT U 

100 

PRINT PT 18,4.; "fiMPS " 


INPU ; I 


H R i-N i ± 

130 

PRINT PT 14- , S, "QHHS " 

140 

INPUT R 

130 

PRINT R 

133 

IF U=S THEN GOTO 30© 

170 

IF 1=3 THEN GOTO 488 

183 

LET R=U,-T 

100 

PRINT PT 14... 13.; R 

000 

PP USE 4-E4- 

2 10 

CLS 

22Q 

RUN 

300 

LET U = I *-R 

310 

PRINT PT S , S.; U 

320 

GOTO 230 

400 

LET I=U,-R 

4 10 

PRINT PT 10,0,I 

420 

GOTO 2©3 

t 


OHMS LOW 

INPUT UfiLUES PND © FOR UNKNOWN 

UOLT 

3 240 


RHP'S 0.3588335 


QHHS 34 
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T HE ZX-80 String Sort routine, 
which occupies only 306 bytes, 
was written by John Edwards 
of Coventry. He writes: “The only 
place to store strings in the ZX-80 is 
in the VARS store, there being no 
DIM AS. So to sort strings into alpha¬ 
betical order, it is necessary to work 
in that section”. 

Lines 7 to 18 allow you to enter 
eight strings, each called AS at first 
and then POKEd to HS to AS. Sub¬ 
routine 48 looks through 110 bytes of 
VARS to find the address of AS to HS 
(134 to 141) and stores that numerical 
information in A (0 to 7). Subroutine 
30 swaps the names of two adjacent 
strings. 

Lines 71 to 80 are a bubble sort. 
The POKEs change the A and B in 
line 75 to BC, CD, DE and the like and 
I changes. That saves a good deal of 
space—and typing; 16675/8 is the 
number of bytes from the start of the 
program (+16424). 

To search all the VARS section, 
use: 

40 LET L = PEEK (16394) + PEEK 

(16395)*256 

48 FORQ=0TOL-V 

Lines 73 and 74 will also need 

altering. 


5 DIM A(7} 

7 FOR J = 0TO7 

8 LET V= PEEK(16392) + PEEK(16393)x256 
10 INPUT AS 

12 PRINT AS 
14 GOSUB48 
16 POKE A (0), 141-J 

18 NEXT J 

19 PRINT 

20 GOTO 70 

30 POKE A(I), 135 + 1 

32 POKE A(I+1),134 + 1 

33 GOSUB48 
35 RETURN 

48 FORQ= VTO V+110 

50 LET Z = PEEK(Q] 

51 IF Z > 133 AND Z < 142 THEN LET A[Z 
—134) = Q 

60 NEXT Q 
65 RETURN 

71 FOR J = 0TO6 

72 FORI = 0TO6-J 

73 POKE 16675,84 + 1 

74 POKE 16378,85 +1 

75 IF AS > BS THEN GOSUB 30 

79 NEXT I 

80 NEXTJ 

100 PRINT AS, BS, CS, DS, ES, FS, GS, HS 
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the ZX-80 

Overflow 


W ITH MOST mathematical 
operations on the ZX-80, 
care must be taken to avoid 
arithmetic overflow. That can be 
done by defining input limits to 
avoid a program crash but it can 
involve a good deal of calculating. 

This program, by G A Rooker of 
Hendon, demonstrates a better 
method of avoiding arithmetic over¬ 


flow, in this case for an exponenti¬ 
ation calculation. 

Lines 80 to 120 test to see if the 
expression 32767/A**B) is less than 
unity. If it is, then A**B is obviously 
greater than 32767 and the calcula¬ 
tion at line 130 is avoided. The prin¬ 
ciple can be applied to other calcula¬ 
tions. 

The program fits in IK. 


10 PRINT “A TO THE POWER OF B” 
20 PRINT 

30 PRINT “A”, “B”,, “RESULT” 

40 INPUT A 
50 PRINT A, 

60 INPUT B 
70 PRINT B,, 

80 LET C = 32767 
90 FOR D = 1 to B 
100 LETC = C/A 
110 NEXT D 

120 IF C < 1 THEN GOTO 160 

130 LETE = A**B 

140 PRINT E 

150 GOTO 40 

160 PRINT “TOO HIGH” 

170 GOTO 40 

©G A Rooker, 1981. 
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A ndrew goodright from 

Cheam, Surrey, sent this 
ZX-80 Stopwatch game, in 
which you have to guess the time 
elapsed from a starting-point, the 
ZX-90 naming a time and the play¬ 
ing, starting and stopping the clock. 
The computer also rates your efforts. 

You get 10 points if you are within 
two seconds of the correct time, 
eight points for being within two to 
three seconds of the time, six points 
for four to six seconds, three points if 
you are between seven and 10 
seconds, and no points if you are 
more than 10 seconds out. 

The variables: 

J—The number of tries the player 
had had. 

P—The player’s score. 

N—The time for which the player is 
aiming. 

TE—The time the player achieves. 

Note that the program works by 
accessing the ZX-80 frame 
counter—addresses 16414 and 
16415. Goodright has used the 
popular convention of an underlined 
asterisk (*) to indicate a space in this 
listing. 


100 REM ** STOPWATCH * GAME 

110LET J=0 

120 LETP=0 

130CLS 

140LET1=1+1 

150 LET N = RND (50) +10 

160 PRINT “TO *”; CHRS(184); CHRS(185); 

CHRS(166);CHRS(183);CHRS(185); “* CLOCK 

* PRESS N/L” 

170 PRINT 

180 PRINT CHRS(184); CHRS(185); 
CHRS(180); CHRS(181); “* AFTER * “; N; “* 
SEC” 

190 INPUT AS 
200 POKE 16414,0 
210POKE 16415,0 
220 PRINT 

230 PRINT “TO *”; CHRS(184); CHRS(185); 
CHRS(180); CHRS(181); “* PRESS * N/L” 

240 INPUT AS 
250 CLS 

260 LET T E = ((PEEK(16415)*256 + 

PEEK(16414) - 4)*2)/100 
270 LET TD = ABS (N - TE) 

280 IF 11 > TD AND TD > 7 OR TD = 7 THEN 
LET P = P + 3 

290 IF 7 > TD AND TD > 4 OR TD=4 THEN 
LETP=P+6 

300 IF 4 > TD AND TD > 2 OR TD = 2 THEN 
LETP=P+8 

310 IF TD > 10 THEN PRINT “TERRIBLE” 

320 IF 2 > TD AND TD > 0 OR TD=0 THEN 
LETP = P + 10 

330 PRINT “YOU * STOPPED * THE * CLOCK 

* AT *”; TE; “* SEC, ***”; TD; “* SEC * FROM 
*”;N;“*SEC” 

340 PRINT “DO * YOU * WISH * TO * 
CONTINUE? *(Y/N)” 

350 INPUT AS 

360 IF AS = “ Y” THEN GOTO 130 
370 IF NOT AS = “N” THEN GOTO 350 
380 CLS 

390 PRINT“YOU * SCORED *”; P; “* PT * OUT 

* OF * A1 ”, “* POSSIBLE *”; 1*10 
400 STOP 
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F IFTEEN-year-old John Miller, 
of Farlington, Portsmouth, has 
written a machine-code routine, 
Invert , to invert the whole screen of 
the ZX-81 with 3^ or more K—or lK, 
so long as 22 lines have been 
PRINTed to the screen. The routine 
takes 1/50 of a second in the FAST 
mode and 4/50 of a second in SLOW. 

It is a very useful routine for game 
explosions, advertising displays and 
the like. The listing shows an 
Assembly listing, a hexadecimal 
dump and the Basic loader program. 

Use RAND USR 32700 to call the 
routine. The routine returns the 
value of the remainder of the result 
of dividing the address where the 
routine starts. If loaded to 32700, the 
routine returns the remainder of 
32700/256—that is 188. Therefore, 
RAND USR 32700 will, as well as 
inverting the screen, set the 
RANDOM seed to 188—i.e., RAND 
188. 

The routine uses only 20 bytes. 
Miller tried loading the routine to 
the last 20 bytes of RAM but that 
crashed the system, even though 
RAMTOP is set below those bytes. 
That should not cause the system to 
crash by a corruption of the Stack. 
We would be interested in hearing 
from anyone who can explain why 
the system crashes in that circum¬ 
stance. 


Z -8© RSSEHBLY LISTING 

LD HL , C D —F XL.ED 
LD B .. ^3 
DEC HL 
NEXT INC HL 

LD ft # t HL > 

CP ITS 
UR N2.XMU 
DUNZ NEXT 
RET 

INU ADD ft,iSS 
LD C HL > , ft 
UR NEXT 


HEX . DUMP 


2ft 0C 
FE 76 
B© 77 


4.0 

20 

IS 


06 

03 

F2 


17 

10 


2B 
f 3 


23 

C2 


7E 

CS 


POKE 16389,127 
POKE 16388,IBS 

10 FOR C =3270© TO 3 2712 
20 INPUT N 
30 POKE C > H 

4.0 PRINT C.iTftB 8.;N,PEEK C 
5© NEXT C 

UITH THE POLLOUINC DftTA/USE THE 
ftBOUE BASIC PROG ft Hri TO LOAD THE 
MRCHINE CODE 

42 , 12 , 64 , 6 , 23 , 4 . 3 , 36 , 126 , 264 , 118 , 
■ 32 , 3 , 16 , 24 . 8 , 201,198 120 „ 1 12 24 . , 

24.2 

(C) UOHN MILLER 
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T HE FIRST question often 
asked about a new machine is 
“Does it play Space Invaders 
Though a IK machine has consider¬ 
able difficulty getting anywhere 
near, Computer Combat for IK ZX-81 
is a type of mini space invaders but 
with only one invader and one base 
and a much slower rate of firing. 

The object of the game is to hit the 
invader as many times as possible 
before it lands or you run out of 
missiles. Twenty-five missiles 
normally are given but that can be 
altered by changing the value of B in 
line 5. 

You receive five points for hitting 
it but lose one is you miss. Use keys 5 
and 8 to move left and right respec¬ 
tively and key 0 to fire. The invaders’ 
missiles are shown as an asterisk 
and yours as a cross. The program is 
good for beginners, as it is easy to 
understand the function of each line 
as there are none of the usual POKES 
and PEEKS or other complicated 
functions. 

If you want to get more memory, 
enter in direct mode the following 
BEFORE entering the program: 

POKE 16389,68 followed by NEWLINE 
NEW followed by NEWLINE 

The program will run continu¬ 
ously until the BREAK key is used. 

Computer Combat was sent in by 
15-year-old Anthony Wells, of 
totnes, Devon. 


s 

LET B =URL ”25” 


10 

LET S=PI-PI 


15 

LET M=PI~PI 


20 

LET X =URL ”16” 


25 

LET Y-PI-PI 


30 

LET M-M+2 


35 

IP MXURL ”28” THEN 

GOTO URL 

"108” 


4© 

CLS 


45 

LET R = INT (RND*5) 


5© 

IF R=3 THEN GOSUB 

155 

55 

PRINT RT M,Y.; "FSft" 


68 

LET Y =YfURL , '2" 


65 

IF Y ssURL "3®" THEN 

GOTO 25 

70 

PRINT RT 21.. X.; " A" 


*75 

LET X=X+ C INKEY $="© 

") *3-(INK 

5 Y $ = 1 

•5"J *3 


8© 

IF INKEY $=“©" THEN 

GOSUB 11 

3 

65 

IF B<=URL , ‘©** THEN 

GOTO URL 

108 ** 


95 

GOTO URL *48” 


108 

PRINT RT 12,10;“SCORE=";S 

105 

PRUSE URL ” 38©** 


11© 

RIJN 


115 

PRINT RT H,X; 


12© 

TF XfloY THEN LET 

s-s~i 

125 

IF X+l-Y THEN PRINT RT tt,X- 

1 ; 


138 

IF X +1 =»Y THEN LET 

3=S 4-5 

135 

L'Ei ' 


14© 

RETURN 


145 

PRUSE URL **S©” 


150 

GOTO URL "4-©“ 


155 

PRINT RT 21,Y;CHR$ 

23 

108 

IF X=Y THEN GOSUB 

URL ,s 170 *■* 

165 

RETURN 


17© 

PRINT RT 21, Y; ** < * > 

e t 

175 

PRUSE URL ”4©” 


1 SB 

LET S=S—URL "3" 


1 SB 

RETURN 



maa — i 

Iks 



S:: 
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Cricket Averages 


A PROGRAM designed to be 
useful with other cricket 
games, e.g., the Video Soft¬ 
ware Test Match and the Emvee 
Software Mini Cricket is Cricket 
Averages , submitted by G Evans of 
Dartford, Kent. 


The program is far too long to 
input—about three hours—and the 
description may or may not need to 
include the listing of variables 
included by the writer. So it it com¬ 
pletely untested. 


1® PRIN 
ES*' 

IS PRINT TRB S 



2® PRINT RT 3,®, 

5 DO YOU WISH TO 
FORT 
3© INPUT TERMS 
35 PRINT TERMS 
.37 PRINT 

4.0 DIM Ai (TERMS, 15) 
50 DIM Bid©, TERMS, 


HOW HRHV TERM 
FIND RUERAGES 


6® 

65 

70 

75 

80 

©5 

90 

95 

10® 

110 

NAME 

120 

125 

127 

13® 

OF 

14® 

145 


DIM I 
DIM N 
DIM R 
DIM H 
DIM F 
DIM C 
DIM R 
DIM R 
FOR 


PRINT 

INPUT 
PRINT 
PRINT 
PRINT 
16)7"; 
INPUT 
PRINT 


(16,TEAMS) 
(16,TEAM®# 

C16,TERMS) 

Cl 6, TERMS.) 

C16,TERMS) 
(16, TERMS) 
(16, TERMS) 
CIS,TERMS) 

=1 TO TERMS 
"ENTER TERM 


NO. OF PLAYERS (MAX. 


PLAYERS 

PLRYERS 


150 FOR Z=1 TO PLRYERS 
160 CLS 

170 PRINT ' NRME NO.";Z; 

180 INPUT B$(Z,L) 

19© PRINT B$ iZ,L) 

200 PRINT "NO. OF INNINGS ?* 
210 INPUT I ( Z,L) 

215 PRINT ICZ.L) 

230 FOR Y=i TO I(Z, 


240 PRINT RT 2,0;“SCORE 
* REPRESENTS NOT OUT)" 


*; Y; ‘ 


THEN LET 


250 INPUT Mi 
255 PRINT Mi 

eoo IF Hjtl.CH 

N(Z,L) =N(Z, L) +1 
270 IF MiCLEN M$) =' 

M*=M*C TO LEN Mi-1) 

280 LET R IZ,L> =RCZ,L) + UAL Mi 
290 IF Y = 1 THEN LET MCZ,L)=RCZ, 

L 300 IF URL Mi>HCZ,L) THEN LET H 
(Z,L)=UAL Mi 

310 IF URL Mi>=5© RND UAL Mi-Cl® 
0 THEN LET F(2,L) =F {2,L.U1 
32® IF URL Mi>=10® THEN LET C CZ 
,L)=C(Z,L)+1 
33© NEXT Y 

340 LET R (Z,L) =R tZ,L) / CICZ,L) —N 
CZ,L) ) 

345 LET RCZ,L)=INT lfl(2,L)#10+0 
.5)/10 
370 NEXT Z 
380 GOSUB 950 
390 CLS 

400 PRINT fl$(L> u 

405 PRINT RT 2,8;"I NO RUNS MS 
F H AU" 

41© FOR Z=1 TO PLRYERS 
430 PRINT Bi(Z,L),TAB S;I(Z,L); 
TAB 11;NCZ,L);TAB 14;ACZ,L); TAB 
19,HCZ,L);TAB 22;FCZ,L);TAB 25;C 
CZ,L> ..TAB 28; ACZ,L) 

44® NEXT Z 

450 PRINT AT 20,0;"DO YOU WANT 
A PRINT-OUT OF THIS TABLEfY/N)7" 
460 INPUT Li 

470 PRINT RT 2®,®;" (4 1, 


480 IF Li="Y" THEN COPY 
490 PAUSE 200 
495 POKE 16437,255 
50© CLS 

510 PRINT "DO YOU WANT BOWLING 
AUERAGES FOR ";AiCL); CY/N )? 

Ill iF P Li="Y“ THEN GOSUB 300® 
540 NEXT L 
550 STOP 
950 FAST 

100© FOR M=1 TO PLAYERS-1 
1010 FOR J = 1 TO PLAYERS-M 
102® IF ACU,L)=ACJ+i,L) THEN GOT 
O 104® 

1®3® GOSUB 2®0® 

1®40 NEXT J 

1050 NEXT M 

1055 SLOW 

1060 RETURN 

2®00 LET X-ACU+l.L) 

2010 LET ACJ + l.L)«ACJ,L) 

2020 LET A C J,L J =X 
2030 LET X=I(J+L,L) 

2040 LET I(J+1,L)=1CJ,L) 

2050 LET ICJ,L)=X 
2060 LET Xi=BiCJ+l,L) 

2070 LET Bi(J+l,L)=B$tJ,L) 

2080 LET BiCW,L)»Xi 
2090 LET X-NCJ+1,L) 

2100 LET N ( J +1, L ) *N C J,L) 

2110 LET NCJ,L)=X 
2120 LET X=R(J+1,L) 

2130 LET RCJ+l.L)=R(J,L) 

2140 LET R (J, L) =X 
2150 LET X=HCJ+1,L) 

216® LET H(J+1,L)*HCJ,L) 

2170 LET H (J,L) =X 
2180 LET X=FCJ+1,L) 

2190 LET FCJ+1,L)=FCJ,L) 

220® LET F(J,L)*X 
221® LET X«C(J+l,L) 

2220 LET CCJ+1,L)*CCJ,L) 

2230 LET C(J,L)*X 
2240 RETURN 
3000 CLS 

3010 PRINT "HOU MANY BOWLERS?" 
3020 INPUT BOWLERS 
303® DIM Ci(BOWLERS,12) 

3031 DIM OCBOULERS) 

3032 DIM U(BOWLERS) 

3033 DIM S (BOWLERS) 

3036 DIM L(BOWLERS) 

304® FOR Z*1 TO BOWLERS 

3060 PRINT "BOWLER NO.";Z;"*"; 
306® INPUT Ci(Z) 

3065 PRINT Ci(Z> 

3070 PRINT "TOTAL NO. OF OUERS " 


3076 INPUT OCZ) 
3O80 PRINT OCZ) 
3090 PRINT "TOTAL 


NO. OF WICKETS 


30&S INPUT W(Z) 

3100 PRINT WCZ) 

3110 PRINT "TOTAL NO. OF RUNS 
3115 INPUT SCZ) 

3120 PRINT S(Z) 

313® CLS 

3140 LET L (Z) =S (Z) / (Z) _ 

3150 LET LCZ)*INT (LCZ)*10+0.5)X 
10 

3180 NEXT Z 
3165 FAST 

3170 FOR P=1 TO BOWLERS-1 
318® FOR M=1 TO BOWLERS-P 
3190 IF L (M) >L CM + 1) THEN GOTO 32 
10 

3200 GOSUB 3500 
3210 NEXT M 
3220 NEXT P 
3230 SLOW 
3240 CLS 

3250 PRINT RT 1,12;" O RUNS W 
AU" 

326® FOR M»1 TO BOWLERS 

3270 PRINT CiCM);TAB 13;OCM);TAB 

32§4 S NE>H- T M B a3 ' W <MJ ' ™ i7; 

329® PRINT AT 20,0;"DO YOU WANT 
A PRINT-OUT OF THIS TABLE CY/N)?" 
3300 INPUT XJ , . 

331® PRINT AT 2®,®;" 


3320 

3330 

334® 

3345 

350® 

361® 


IF X*="Y" 

- IE 2C “ 


353® 

3540 

3550 

3560 

3570 

3580 

3590 

3600 

3610 

3620 

363® 

3640 

365® 


THEN COPY 

pause 200 

RETURN 

POKE 16437,255 
LET X=OCM+-l) 

t ET O CM + 1) *0 CM) 

ET O CM) =X 
LET X-WCM+1) 

LET WCM+1) «U CM) 

LET W CM) =X 
LET X*SCM+1) 

LET S CM + 1)»S CM) 

LET S CM) *X 
LET X-LCM + 1) 

LET L CM + 1) *L CM) 

LET L CM) =X 
LET X$»CitM+l) 

LET CiCM+1)*C*CM) 
LET CiCM)«X$ 

RETURN 


SINCLAIR PROGRAMS May/June 1982 


35 





































































































F OR THE more technically- 
minded, here are two useful 
machine code routines for the 
ZX-81. If you have ever been 
annoyed at having to lose a program 
in memory when wanting to load 
another from tape, even though both 
could fit easily, then Progsave and 
Progretrieve could be the answer. 

The routine copies the program 
presently in RAM to above 
RAMTOP. Though RAMTOP is re¬ 
located to make room, nothing 
already above RAMTOP is changed. 
If there is not sufficient memory, the 
program will return to Basic. 

Using the routine, any program 
can be disassembled—many dis¬ 
assemblers needing to be in RAM, 
not above RAMTOP. To load pro¬ 
grams from tape without losing the 
program already in RAM, Progsave 
must be used in conjuction with 
Progretrieve. That routine will re¬ 
store a program from above RAMTOP 
to address 16509 and thus any pro¬ 
gram already in memory will be 
moved up in memory; you may need 
to re-number after use. The copy 
above RAMTOP is erased and 
RAMTOP is re-set to the value it had 
before running Progsave. 

To use the routines the following 
instructions may help: 

Write main section of program; 
run Progsave; load subroutines 
needed from tape; run Progretrieve; 
re-number if necessary. 

After completing that the program 
will be the main program followed 
by the subroutines. If any line 
numbers clash, the only method of 
re-numbering is to use a re-number 
routine—using the EDIT key will not 
work. 

Progsave and Progretrieve were 
sent by John Hardman, of Welling, 
Kent. 


4082 


□KG 16514 

4082 

2A0C40 

LD HL#(16396) 

4085 

117D40 

LD DE#16509 

4088 

A7 

AND A 

4089 

ED 52 

SBC HL #DE 

408B 

E8 

EX DE#HL 

408C 

D5 

PUSH DE 

408D 

2A0440 

LD HL#(16388) 

4090 

A7 

AND A 

4091 

I D 52 

SBC HL #DE 

4093 

EB 

EX DE# HL 

4094 

2A1040 

LD HL# (16400) 

4097 

A7 

AND A 

4098 

ED 52 

SBC HL # DE 

409A 

D1 

POP DE 

40915 

FO 

RET P 

409C 

2A0440 

LD HL#(16388) 

409F 

A7 

AND A 

40 AO 

ED 52 

SBC HL # DE 

40A2 

2B 

DEC HL 

40 A3 

2B 

DEC HL 

40A4 

220440 

LD (16388)#HL 

40 A 7 

72 

LD (HL)# D 

40A8 

23 

INC HL 

40 A 9 

73 

LD (HL)# E 

40 A A 

23 

INC HL 

40AB 

42 

LD B# D 

40 AC 

4B 

LD Of E 

4.0 AD 

117D40 

LD DE#16509 

40 BO 

LB 

EX DE # HL 

4 OBI 

ED BO 

LD IR 

4 OB 3 

C9 

RET 

4082 


ORG 16514 

4082 

2A04 40 

LD HL#(16388) 

4085 

46 

LD B#(HL) 

4086 

23 

INC HL 

4087 

4E 

LD C#(HL) 

4088 

23 

INC HL 

4089 

i1/D40 

LD DE#16509 

408C 

F8 

EX DE# HL 

408D 

E5 

LABELs PUSH HL 

408t 

C5 

PUSH BC 

408F 

1A 

LD A#(DE) 

4090 

13 

INC DE 

4091 

D5 

PUSH DE 

4092 

ED530440 

LD (16388)#DE 

4096 

CD2605 

CALL 0526H 

4099 

1.0 

POP DE 

409A 

Cl 

POP BC 

409B 

LI 

POP HL 

409C 

23 

INC HL 

409D 

OB 

DEC BC 

409E 

78 

LD A# B 

4091 

Bi 

OR C 

40 AO 

20 EB 

JR NZ#LABEL 

40A2 

f-9 

RET 
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EM “SMF 
15 REM CM 
20 LET X=0 
30 RAND 
“ PRINT TAB 


3; “I 

__ 7,0; “DO YOU NEED A 

N EXPLANATION OF","THE STORY? Y 
OR N“ 

60 INPUT ©$ 

70 IF ©*="Y" THEN GOTO lie 
©0 IF ©*="N" THEN GOTO 120 
90 PRINT RT 10,0;"MAKE UP YOUR 
MIND..." 

100 GOTO 60 
110 GOSUB 1000 
120 CLS 

130 GOSUB 2000 
135 SLOU 
14-0 CLS 
14-5 i GOTO 3000 
150 IF X<>0 THEN GOTO 14-0 
160 IF Y=E AND ARK=0 THEN GOTO 
7000 

1?| 4 IF Y=E ° ND RRK = 1 THE N GOTO 

166 IF Y<>E THEN GOTO 20 
170 PR INT TAB 4-; "I-“- S 

/TAB 2; 1 

, .. "GANDALF UILL MAKE 
YOU AN","HONORARY HOBBIT”BU 
T YOU WERE LUCKY - SMAUG","WILL 
GET YOU NEXT TIME." 

190 GOTO 230 

200 IF YoBALROG T HEN GOTO 
JS10 PRINT , , TAB 9; "I- 

, ,TRB 5; “■ 

230 PRINT 

24.0 PRINT , , “ANOTHER GRME? (Y O 
R N) " 

250 INPUT ©$ 

260 IF ©*="Y" THEN G OTO 120 
270 PRINT ,,TRB 13; ■«" 

280 STOP 
1000 CLS 

1010 PRINT , , "YOUR RIM IS TO FIN 
D SHRUG AND","KILL HIM SO THRT Y 
OU CRN TAKE","THE RRKENSTONE." 
1020 PRINT ,,"SMAUG LIUES IN R N 
ETWORK OF 20","INTERCONNECTING C 
RUES - EACH","CAUE HRS 3 EXITS L 
ERDING FROM IT" 

1030 PRINT ,,"THERE ARE DANGERS 
THOUGH - THREE";"CAUES CONTAIN O 
RCS WHO CRN","MAGICALLY TRRNSPOR 
T YOU TO","ANOTHER CAVE RT RRNDO 

104-0 PRINT , , "YOU ONLY HRUE 5 RR 
ROWS WITH","WHICH TO KILL SHRUG 
- USE","THEM WISELY." 

1050 PRINT ,,"PRESS NEWLINE TO C 
ONTINUE" 

1060 INPUT ©$ 

1070 CLS 

1080 PRINT ,,"WHEN YOU SHOOT RT 
SMAUG YOU","MIGHT BE LUCKY AND K 
ILL HIM,","OR HE MIGHT RUN AWRY 
(TAKING","THE ARKENSTONE WITH HI 
M) OR HE","MAY ATTACK YOU" 

1170 PRINT j, "OH, I NEARLY FORGO 

1190 PRINT ,,"ONE CAUE HASABAL 
ROG IN IT.", "THIS IS AN ■3M3TOMB 
THING","WHICH WILL KILL YOU ON S 
IGHT" 

ONTINUE" NT "'“ PRESS NEWLINE TO C 
1210 INPUT ©$ 

1230 RETURN 
2000 LET S=5 
2005 FAST 

2010 LET B $ = "BCJADEADNBCGBQH" 
2020 LET B$=B$+"LRSDELELRMRSANP" 
2030 LET B*=B*+"NOPFGHIOTCUKKOT" 
204-0 LET B $ =B> + " JKTHOSFHIFIOOPM " 
2050 LET R$eB$ 

2060 GOSUB 2500 
2070 LET Y=R 
2080 GOSUB 2500 
2090 LET E=R 

210© IF E=Y THEN GOTO 2080 
2110 GOSUB 25©0 
2120 LET ORC1=R 

2130 IF ORCl=Y OR ORCl=E THEN GO 
TO 2110 

214-0 GOSUB 250© 

2150 LET BALROG =R 

2160 IF BALROG=Y OR BALROG=E OR 
BALROG =ORC 1 THEN GOTO 214-0 
2170 GOSUB,2500 
2180 LET ORC2«R 

2190 IF ORC2=Y OR ORC2=BALROG OR 
ORC2 =ORC1 OR ORC2=E THEN GOTO 2 
170 

2200 GOSUB 250© 

apia i ft nDr^-C 

2220 IF ORC3 =Y OR ORC3=E OR ORC3 
=BALROG OR ORC3=ORCl OR ORC3=ORC 
2 THEN GOTO 220© 

2230 GOSUB 2500 
224-0 LET 5MAUG = R 

2250 IF SMAUG=Y OR SMAUG=E OR SM 
RUG =ORC1 OR SMAUG=ORC2 OR SHRUGa 
ORC3 OR SMAUG=BALROG THEN GOTO 2 
230 

2270 LET ARK=© 

2300 LET X=X+1 
24-00 RETURN 

2500 LET R=INT (RND*20)+1 
2510 RETURN 

3000 IF Y=E OR Y=BALROG THEN GOT 
O 3230 

3020 IF Y =SMRUG THEN GOTO 3270 
3030 IF Y»ORCl OR Y=ORC2 OR Y»OR 
C3 THEN GOTO 3250 

3060 PRINT "YOU ARE IN ROOM ";Y 
3080 GOSUB 8000 

3110 PRINT "TUNNELS LEAD TO "; Rl 

; , ;R2; , ;R3 

3112 IF RRK=1 THEN GOSUB 3500 ! 

3115 IF R1=E OR R2=E OR R3»E'THf 
N GOTO 3150 

314-© GOTO 316© 

3150 PRINT 


UILL YOU 


3160 PRINT "UHER 
TO? •' : 

317© INPUT Y 

3175 PRINT Y 

3180 IF Y=R1 OR Y=R2' C 

N GOTO 324-0 

3210 PRINT "YOU CANNOT 

IN" 

3220 GOTO 3160 
323© LET X 
324-0 GOTO 150 
325© GOTO 4.©00 
326© GOTO SOS© 

327© IF S:0 THEN GOTO 
3280 PRINI . 


3300 GOTO 323© 

331 © GOSUB 500 © 

3320 IF ©$ = P ~ HE - 
3330 GOTO ’ 324.0 
3500 IF RlsBALROG OR 
R R3=BRLROG THEN GOT 
3510 GOTO 3560 

3550 print ,, “ mmsmsf&am 

RKENSTONE IS WARNING vni 
SALROGS APE NEAR 


HOLE 


2=BALROG 





S MAUG is an Adventure game 
based on a circular maze of 
rooms. 

The object is obviously to find a 
dragon called Smaug and then kill it. 
On the way you risk being transport¬ 
ed to other caves by Ores or catching 
sight of a dreaded Balrog, which is 
fatal instantly. 

Having slain the dragon, you must 


steal the Arkenstone which assists 
you by protecting you from Ore- 
porting and also warns of impending 
Balrogs. 

Smaug has no graphics built in yet 
but perhaps that could be the next 
development for interested readers. 

The program requires 5K and was 
submitted by Mrs C M Corns of 
Enfield. 


3560 RETURN 
4-000 PRINT TAB 


(-005 IF ARK =1 THEM GOTO 4-027 
4-010 LET G = INT (RfND-l20) ->1 
4-020 LET Y =6 

4-325 PRINT , , "YOU HAUE BEEN OPC- - 
PORTED TO", "ROOM G 
4-0£6 GOTO 4-0-3© 

4-027 PRINT . BUT YOU HAVE THE •- 
RKENST ONE","ORC MAGIC IS NO GOOD 
NOW" 

4-028 GOTO 306© 

4-030 GOTO 3260 
5000 PRINT , ,TRB 5, 

5i01^nPRINT ,,"SHOOT OR RUN?", "RE 
PLY S OR R” 

5O20 INPUT Q$ 

5030 IF ©*=”S" THEN GOTO 508© 
504.0 IF ©$="R" THEN GOTO 5070 
5050 PRINT "ANSWER QUICKLY" 

5060 GOTO 5010 
5070 RETURN 

5080 PRINT . ,TAB 12, " MS M B M 1 ' 

5090 LET O =RND 

5100 IF ©<=.33 THEN GOSUB 6000 
5110 IF ©< = .66 AND ©>.33 THEN G'~ 
TO 6100 

5120 IF ©>.66 THEN GOSUB 6200 
5130 RETURN 
6000 PRINT . ,TAB 8 ;"■ 

, TAB 5; ' -*—" 


S10 GOTO 230 
6020 RETURN 

6100 PRINT ,,"YOU MISSED, SMAUG 
RAN AWAY","HE HAS TAKEN THE ARKE 


NSTONE","WITH HIM 
6110 GOSUB 8000 
6140 LET SMAUG=R2 

8150 IF SMAUG=E OR SMAUG=BALROG 
THEN GOTO 6160 
6155 GOTO 619© 

8160 LET SMAUG =R1 

6170 IF SMAUG=E OR SMAUG=BALROG 
THEN GOTO 6180 
6175 GOTO 619© 

5180 LET SMAUG=R3 
6190 GOTO 3068 
8200^PRINT" , ,TAB 4 

^^S^^SSP^^BLiT CAN YOU ESCAPE I 
TO THE EXIT?" 

6220 LET SMAUG =0 
6230 LET ARKsi 

6260 GOTO 306© I 

8270 RETURN _ I 

700© PRINT TAB 1©; ariWIMI ' 
701© PRINT .-"YOU HAUE NOT GOT T 
HE”,"ARKENSTONE, IF YOU RETURN",! 
"WITHOUT IT GANDALF UILL TURN", “ I 
YOU INTO A BEETLE. GO BACK AND",1 
"FETCH IT." 

702© LET X=1 
7030 GOTO 306© 

8000 FOR 1=1 TO Y 

3010 LET Rl=CODE (h$3-37 

8020 LET A$=A$(£ TO ) 

8030 LET R2=CODE (A $3-37 
8040 LET A$=A$(2 TO 3 
305© LET R3=CODE tA$3-37 
306© LET*A$=A$(2 TO 3 
807© NEXT I 
808© LET A$=B$ 

3100 RETURN 
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W IZARD WIZ, or a plastic 
version of it, is better 
known as Mastermind 
marketed by Invicta. The computer 
picks a three-digit code using the 
numbers one to nine, without repeat¬ 
ing any digits. You enter your guess 
for the number—as one three-digit 
number—and then press NEWLINE. 

A correct digit in the correct loca¬ 
tion will give you a ‘black’—an 
inverse digit—while a correct digit 
in the wrong place will score a 
‘white’. There are 10 guesses allowed 
to crack the code but remember not 
to use the same digit more than once 
in a single guess. 

The program is written for a 
ZX-80 but will need more memory 
on a ZX-81 and needs the following 
changes. In line 40 alter the way the 
random number is generated and 
add INT before the brackets on the 
right-hand side of the equals sign in 
lines 100,110,120, 290, 300 and 310. 

Wizard Wiz is from The Gateway 
Guide to the ZX-81 and ZX-80 by 
Mark Charlton, published by 
Interface of 44-46 Earls Court Road, 
London W8 6EJ. 


JO 

DIM A(3) 



20 

DIM B ( 3) 

190 

LET N = N + 1 

30 

FOR Z = 1 TO 3 

200 

LET A(E) = 0 

40 

LET A(Z) « RHD(9) 

210 

NEXT E 

50 

NEXT Z 

220 

FOR' F » 1 TO 3 

60 

IF A (1) « A(2) OR A (1) « A(3) 

230 

IF A(F) = 0 THEN GOTO 280 


OR A(2) « A(3) THEN GOTO 30 

240 

FOR E = 1 TO 3 

70 

LET A » 100*A(1) + 10*A(2)+A(3) 

250 

IF NOT B(F) - A(E) THEN GOTO 270 

80 

FOR C « 1 TO 10 

260 

LET W = W + 1 

90 

INPUT B 

270 

NEXT E 

100 

LET B(1) - B/100 

280 

NEXT F 

110 

LET B (2) - (B - 100*B(1))/10 

290 

LET A(1) * D/100 

120 

LET B(3) m b - 100 * B(1) - 10*B(2) 

300 

LET A(2) - (D - 100*A(1))/10 

130 

IF A m B THEN GOTO 360 

310 

LET A(3) - D - 10 0* A (1) - 10*A(2) 

140 

LET D m A 

320 

PRINT B, CHR$(N), W 

ISO 

LET N « 156 

330 

NEXT C 

16 0 

LET W - 0 

340 

PRINT ,A 

170 

FOR E - 1 TO 3 

350 

STOP 

180 

IF NOT A(E) « B(E) THEN GOTO 210 

360 

PRINT "YOU GOT IT IN ";C 
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T HE GRAPHICS on Dogfight are 
fairly impressive considering 
that it will run on 1K machines. 
The screen becomes the windshield 
of an aircraft with your gunsights 
indicated by the symbols. An enemy 
aircraft files on a random course 
across the screen, moved inexorably 
rightwards and downwards. 

Using certain cursor keys, e.g., 
upward arrow, the course of the air¬ 
craft can be altered in an attempt to 
put it in front of the sights. When 
that is done, pressing the O key will 
fire your gun. 

Program author Robert Graves of 
London explained that he limited the 
amount of cursor control deliberate¬ 
ly; you cannot move the aircraft 
downwards. The result is a game 
which it is not so easy as it sounds. 


1 

REM 

"DOGFX 

GHi 4t 

2 

LET 

R= 32 


3 

LET' 

0 Lt.0 


4 

LET 

C ~ INT 

iRND^2 

5 

LET 

D~0 


10 

L,ET 

Z - INT 

CRND*3 

15 

PRINT RT i 

i; i&f 


< + > 

§0 PLOT R,B _ 

25 PRINT RI U.c L>J 

30 LET 

2S VFLSSSWH GOTO 4. 

ir INKCY *«**©" THEN LET 0 = 0 - 

3 IF C=ll RNO 0=16 THEN GOTO 




% 

55 

60 


65 

20 

70 

75 

60 
65 
90 
105 
95 
3.. 14 
I©© 
105 
110 
115 
0 .. 16 


XF C > -21 THEr-4 GOTO 4 
XF INKEY*="7“ THEN LET C~C - 

XF INKEY* = ,, 0" THEN LET B=5 + 

XF THEN LET B=0 

IF INKEY*- e S s THEN LET D=D- 

CLS 

GOTO 10 

XF ft=32 PND B=20 THEN GOTO 
PRINT RT 9,14; "f 6 *i”;RT 1 

■' GOTO 10 

PRINT RT 11, 1S_; "UBS" 

F'RUSE 1© 

PRINT RT 11,15; __18UHRM” ; RT 1 
; ; RT 
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5 

LET 

R -RND 

10 

LET 

J=5GH PX 

20 

LET 

F “CODE 88 U 88 

30 

LET 

H-J 

4-0 

LET 

T~J*3 

58 

LET 

Y~T 

80 

LET 

X~T 

56 

LET 

O -R +CODE **M** SY f X +X 

78 

CL 3 


80 

LET 

L - £ X +Y < >T S INT £ £ X +Y ) /T 3 

90 

i@0 

? 

PRINT 

PRINT “I I s ; RT O3; t8 |§r RND 

* ll0 
ISO 

PRINT ‘IfeJ 48 

PRINT RT 3, NOT O ; 88 88 RND Rd 

S tO 

-JO ^fPI-INT' £ RBS CQ-J3 < 

COS 1 

J 



130 PRINT RT NOT “ 88 RND RB 

S NT CRB5 Q**PI) >COS J 

140 PRINT RT T J; ,$ 88 RND RB5 CQ 

+ CODE “H tl ) ^^PI-INT CRBS CO+CODE 
"M"* **PIJ >CDS -J 

158 PRINT RT JT; ct “ RND RBS CQ 

■fj) **PI-INT £ RBS tQ+«J> ^tPI) <005 

kJ 

158 LET © “RBS TNT URL. 88 XsY*Ls£P 
I*Q~XNT (PI*0) > 8i 
178 LET H = H-fG 

180 PRINT RT TiT.HOT U; 8s j|§ 8B ; © ; 'W 
8 \; H; "H 88 ; F; 84 . LRFB7 88 
19© IF X SX 4*Y SY > CODE “005 88 THEN 

PRINT tk BE3g@ fcft ;TRS —T 

see input if 

21© PRINT RT CI£=“L" OR I?£ = 88 P 88 3 
*T S (I$ = “B n 5 . £I$~ £t F 4i OR I£ = 88 B" 3 +T 
* £ ISSrr^R > 

22© LET 8=UfiL "16398“ 

23© XF PEEK (PEEK 0 4- C25S*PEEK * 
e + J) ) ) < >NOT a THEM LET F=F-CODE 

24-0 LET X=X + ( I^-"K ' 3 - { IS = ’'L" 3 
25© LET Y=YtiI$ = “B'T - a$ = "F") 
26© LET F=F-U 

270 IF F >-3 THEN GOTO CODE "7” 



A N ADVENTURE game, 
Wander, uses limited graphics 
which will run on 1K 
machines. It is set in a circular maze 
with the usual interconnecting 
square rooms. Only one room—the 
one you are in—is displayed and 
alternate rooms contain gold, with 
your position in the maze being esti¬ 
mated from the amount of gold in 
nearby rooms. 

The object of the game is to amass 
as much gold as possible and find an 
exit to the maze but with only 60 
units of food—allowing up to 60 
moves—you could well starve 
before finding an exit. 

If you are desperate, walls can be 
clawed through but so exhausting is 
that operation that it uses 10 food 
units. One room is dialled at a time, 
showing the possible direction of exit 
and inputting, L, R, F, B indicates 
whether movement is required in a 
left, right, forward or backward 
direction. 

The letters G, W and F indicate the 
amount of gold in the room, the total 
wealth accumulated so far, and the 
amount of food remaining. 

To repeat the same maze in a 
subsequent game, set R to a particu¬ 
lar value between 0 and 1. 

Wander was submitted by 
Michael Orwin of London who 
intends to include it in a forthcoming 
book called lK Wonders. He also 
sells games cassettes for the ZX-81 
and can be contacted at 26 Brownlow 
Road, Willesden, London NWlO 
9QL. 
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S UBJECT INDEX sets up a Mini 
ZX-81 database designed to keep 
an index of magazine and book 
articles but it can be changed easily 
for other applications. The options 
available are to add a record, delete 
the last entry, list the records, search 
for a record and exit from the 
program. 

On running the program, the 
screen displays a menu of com¬ 
mands, after having asked for a title 
for the index to be created. Using the 
Add option allows an item of infor¬ 
mation to be added to the index and 
prompts individually for article title, 
publication name, date and page 
reference. 

To return to the menu, enter an 
empty string for the title. When 
using List to display the contents of a 
file, the CONT instruction is 
required each time the screen is full 
and report code 5 occurs. 

Using Exit offers the option of 
saving the file to cassette or ending 
the program. The Search option 
requests a keyword which in this 
version of the program is the article 
title. Search will also work on the 
first character or characters of the 
title. 

The number of items which may 
be stored is governed by the value of 
N in line 15. A value of 350 is about 
the maximum which can be accom¬ 
modated in 16K of memory but if a 
smaller number is used saving and 
loading time will be reduced. 

Names of publications are limited 
to eight characters, so an abbrevia¬ 
tion is required for longer names. 
Titles may be of any length but the 
array is dimensioned for an average 
of 25 characters per item. 

Subject Index was sent in by Julian 
Moss of London. 



1 

RE H 

********************** 

& 

REM 

* SUBJECT 

INDEX 

* 

3 

REM 

* RUTHOR: d* 

U * MOSS 

* 

4. 

REM 

*****^**********££**** 

1© 

REM 

INITIALISE RRQGRRN 


IS 

REM 

N IS NUMBER 

OF ITEMS 


15 

LET 

N =350 



2© 

DIM 

R$ CN.,8) 



3© 

DIM 

T$ (N*25) 



4-0 

DIM 

N$ (I©,3) 



4-4* 

DIM 

B$ (8) 



45 

DIM 

(IS) 



5© 

PRINT “SUBJECT?" 



5© 

INPUT S$ 



8® 

LET 

PTR = 1 



82 

LET 

CN=© 



84 

LET 

CR=1 



10© 

REM 

DISPLRY MENU 



105 

CLS 




11© 

PRINT TAB 8; “* 

INDEX" 


12© 

PRINT RT 3..8.;“R 

- ADD #t 


13© 

PRINT RT 6..8;'*D 

- DELETE 

Lfl 

ST ENTRY' 
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14.0 PRINT RT 9.. 8:"L - LIST" 

150 PRINT RT 12 j 8; "S - SEORCH" 
160 PRINT RT 15,8;"X - EXIT" 

20© PRINT RT 21,0;"7" 

210- INPUT C$- 
215 CLS 

220 IF C$="R" THEN GOTO 1000 
230 IF C$="L" THEN GOTO 2000 
24.0 IF C* = "5" THEN GOTO 3000 
250 IF C$="X" THEN GOTO 4.000 
260 IF C$="D" THEN GOTO 500© 

220 GOTO 100 

1000 REH RDD ITEMS 

1001 PRINT "NRME/SUBJECT OF RRTX 

OLE?" 

1010 INPUT R$ 

1012 IF R$i = "" THEN GOTO 100 
1015 PRINT ,*.R$ 

103© PRINT 

1032 PRINT "NRME OF PUBLICRTION7 

II 

104.0 INPUT B* 

104.5 PRINT .. ,B$ 

1050 PRINT 

1052 PRINT "ISSUE CMMMYY)7", 

1060 INPUT D* 

1065 PRINT D* 

1070 PRINT 

1072 PRINT "PRGE7" j, 

I©80 INPUT P 
1085 PRINT P 

1100 IF NOT CN THEN GOTO 114.5 
111© FOR 1=1 TO CN 

1120 IF B$=N$(I) THEN GOTO 1200 
113© NEXT X" 

114.8 GOTO 1150 

114.5 LET 1 = 1 
1150 LET N*CI)=B* 

119© LET fcN = I _ , 

1200 LET R4» (CR, 1) =CHR$ I 
1210 LET ft*(GR»2 TO 6)=D* 

1220 LET £1(88*7) *CHR* INT CP/25 

123© LET RJMGR,8> -CHR* CP-INT CP 
/256)*256) 

124.0 LET T$ tPTR) =CHR$ C128+INT C 
CR/128)) ^ 

1250 LET T^tPTR+1) =CHR$ CCR-INT 
(CR/128)*1^8) 

1260 FOR 1=1 TO LEN Rf 
1270 LET T* CgTR + I + 1) M> 

1280%NEXT I A 

1290 UET PTR^PTR *2 +LEN R4» 

1292 LET CR=Ctt+l 

1293 IF CR=N OR PTR > (N*25-25) TH 
EN GOTO 9000 f t 

1295 CLS 

1298 GOTO 1000 

2000 REM LIST ROUTINE 

2005 LET 1=1 

2010 GOSUB 8000 

2020 IF I<PTR THEN GOTO 2010 
2025 PRINT "PRESS N/L TO RETURN 
TO MENU" 

2330 FRUSE 4E4 

204.0 GOTO 103 

330© REM SEHRCH ROUTINE 

3010 PRINT "KEYWORD?** 

302© INPUT C£ 

303© CLS 

3X00 FOR K = X TO PTR ^ 

3110 IF T$ CK3 <>C$?C1) THtN GOTO 3 
19© 

3120 FOR U = 1 TO LEN C$~i 

3130 IF T$CK+U3 <>C$CU + X3 THEN GO 

TO 3180 

314.© NEXT U 

3150 FOR I=K TO 1 STEP ~1 
3:152 IF CODE T$ Cl) <128 THEN NEXT 
X 

3160 GOSUB 8000 
3165 LET K = I~1 
317© GOTO 319© 

318© LET K=K+U 
3X90 NEXT K 


3192 PRINT 

3193 PRINT "PRESS N/L TO RETURN 
TO MENU" 

3195 PRUSE 4-E4 
3198 GOTO 10© 

4-00© REM 5RUE/EXIT ROUTINES 
40©1 PRINT "SPUE (Y/N)7" 

401© INPUT C$ 

4320 IF C$=“N" THEN GOTO 9992 
403© LET X$rS$ + ‘TNDEX ! * 

404© PRINT "TYPE NEULINE WHEN RE 

ROY" 

435© INPUT 
436© 5RUE XI 
439© GOTO l©e 

530© REM DJEUETE-LRST ITEM 
5301 FOR I=PTR-1 TO 1 STEP -1 
531© IF CODE T$ (13<128 THEN NEXT 

5320 'LET PTR = I 
5330 LET CR =CR — 1 
5090 GOTO I©© 

300© REM SUBROUTINE "PRINT RN XT 

EH 1S 

30© 1 LET R = 1;P3* (CODE T$ Cl) -128) * 
CODE T$(I+1} 

0010 LET 1=1+2 

303© IF CODE T$(U >=128 THEN GOT 
O 810© 

804© XF I> =PTR THEN GOTO S13© 
835© PRINT T & C X ) , 

306© LET 1=1+1 
807© GOTO B©3© 

SI©© PRINT TRB 8;"t“;N$(CODE R$ C 

RT)):" TO s>;", P a ";CO 

DE R& (R.»7) +25S+CODE R$ i R, 8) ; " ) " 

811© PRINT 

319© RETURN 

200© REM RRRRYS FULL 

901© PRINT "5TORRGE FULL" 

2320 GOTO k 40©0 
9999 STBP 

flNDBX 


R - 


D - DELETE LflST ENTRY 


L - LIST 


S - SERRCH 


X - EXIT 


NRME/SUBJECT OF ARTICLE? 
RDUENTURE PROGRRM 
NRME OF PUBLICRTION7 
SINCLAIR 

ISSUE CMMMYY)7 05/82 

PRGE7 34 


RDUENTURE PROG&RM 

CSINGLRTCR 05/82, P.34) 

PRESS N/L TO REJURN TO MENU 
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* 


A 



CHR5E SCORED© OUT OF I 



1 

LET 

R sCODE 88 81 


s 

LET 

BsCODE 8 ‘ 3§ss ' 8 


10 

LET 

C-CDDE 8fg 8 


IS 

LET 

DsCODE * ? 8 


20 

LET 

P=B 


30 

LET 

Q=CDDE 8 


4-0 

LET 

S —R 


50 

PRINT "SUB CHASE" 

60 

FOR 

Z~C TO StB 


70 

FOR 

Y-CODE V; 8 

TO o •st-sts-* i 

80 

PRINT RT B * PL 88 


--- 

——- — 

— — -- 

“;RT B-CjR;" 

"SB S*S 


RT DY ~B,; 1 , 

_ 11 

90 

XF 

P>& RND P < D 

THEN LET P=i 

+c 




100 

IF 

INKEY$ = k8 F t8 

RND P~B THEN 


LET P~P*fC 

110 XF P=D hND V*=Q THEN GOTO CO 
DE 88 COS 88 

190 XF P >B THEN PRINT RT P-C^C; 
" ";RT P,Q; “0“ 

130 IF P-D THEN PRINT RT P,O;" 

14-0 XF P~D THEN LET P~B 

150 NEXT V 

160 GOTO CODE 88 > ~ 81 

SCO PR JNT RT P -C , Q; 48 “ ; RT D , V -B 

: "BOOODH 48 
90S LET S^S4-C 
210 LET P~B 

220 PRINT RT D.V-B; “ 8 \; RT 

R., D; '’SCORES"; S; 88 OUT OF 88 ; Z 
230 NEXT Z 

94L0 PRINT RT D,Q+B; “GRME OVER" 


S UB CHASE is another IK pro¬ 
gram submitted by the Lookers 
father and son team. In this, you 
are given a static destroyer in the top 
left-hand corner of the screen, while 
an enemy submarine travels from 
left to right across the screen. 

Using the F key drops a depth 
charge and it must be dropped at 
precisely the right moment so that it 
scores a direct hit on the conning 
tower of the submarine. 

Sub Chase gives you 10 
submarines before the game ends 
and your score is displayed on the 
screen. 
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G RAFFITI is written for a IK 
ZX-80 and fills the screen with 
large letters; a 32-letter 
message can be fitted on to a IK 
machine with four lines of eight 
characters each. 

Messages are entered eight 
characters at a time and if an inverse 
letter is wanted, for example A, enter 


it as NOT A. That still counts as one 
character. To put a quotation mark in 
the message, enter shift H ie (**). 

Graffiti is from The Gateway Guide 
to the ZX-81 and ZX-80 by Mark 
Charlton. Published by Interface of 
44-46 Earls Court Road, London 
W8 6EJ. 



10 REM 00050483078288860608028703848580191A111 
00012131415000H61718000014FE 
30 FOR Is0 TO 33 

50 NEXT J 642>I ’ l6 *™ (l6427+2Ml ) +PEE K(l6428<.2 1 il)i.36 

60 POKE 16457,118 

RUN this, then enter: 

20 INPUT A0 

30 POKE 16421,24 

40 IF A0=" M THEN STOP 

50 FOR 1*0 TO 3 

60 LET C“0 

70 FOR J»1 TO 8 

80 LET X-0 

90 LET C-Cfl 

100 LET L=PEEK(16719*C) 

110 IF L-219 THEN GO TO 140 
120 LET X*128 

130 GO TO 90 

140 IF L>99 THEN LET L=PEEK(l6227*L) 

150 FOR K«0 TO 3 

160 PRINT CHRj5(PEEK(l64274((PEEK(2*I+8*L'*3584) 
/4«t(3-K) AND 3}V(PEEK(2 kI*8kL 
+3585)/4**(3-k) AND 3)*4))+X); 

170 NEXT K 
180 NEXT J 
190 NEXT I 
200 RUN 
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Z AP is described as a kind of 
mini-invaders and will run on 
IK ZX-81. Intruders from outer 
space approach diagonally, left, right 
and vertically. A missile is launched 
automatically at the invaders and 
you have to steer the bomb to its 
target, using the 5 and 8 keys—left 
cursor and right cursor. 

Ten invaders are launched and 
then the program tells you how 
many you stopped. When familiar 
with the game try changing line 130 
to IF C + H AND M = P THEN GOTO 
200 . 

Zap is from The Gateway Guide to 
the ZX-81 and ZX-90 by Mark 
Charlton. Published by Interface of 
44-46 Earls Court Road, London 
W8 6EJ. 


10 

LET 5=0 




P - 1;"graphic shift three 

graphic shift 

20 

LET M = 14 




seven graphic shift four";. 

AT C,M;"*" 

30 

FOR Z = 1 TO 10 



130 

IF C = H AND M > P - 2 AND 

M < P + 2 

40 

LET C = 20 




THEN GOTO 200 


50 

LET R = INT(RND* 3) 



140 

LET C = C - 1 


60 

LET P = 13 - (12 AND R = 0) 

+ 


1 50 

NEXT H 



(12 AND R = 2) + INT(RND* 5) 



160 

CLS 


70 

LET P$ = "P" +(”+l" AND R = 

0) 


17 0 

NEXT Z 



+ ("- 1" AND R = 2) 



180 

PRINT AT 10,0;LANDED:10",, 

"STOPPED:";S 

80 

FOR H = 4 TO 21 



19 0 

STOP 


90 

LET P = VAL P$ 



200 

LET S = S + 1 


100 

LET M = M + (1 AND INKEY& = * 

' 8") - 


210 

PRINT AT H - 1 ,P ; "*";TAD P 

- 1 ; 


(1 AND INKEY $ = "5") 




"***";tab P;"* " 


110 

CLS 



220 

LET Z = Z -"2 


120 

PRINT AT 21, M - 1graphic 

shift 

three 

2 30 

LET C = 20 



graphic space graphic shift: 

four" , 

: AT H, 

240 

GOTO 170 
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SINK THE BISMARCK 


I N TRUE jingoistic fashion, Sink 
the Bismarck puts the player on a 
routine patrol of the North Sea. 
Out of the fog appears the Bismarck 
and by setting elevation and muzzle 


velocity of a gun, you can attempt to 
sink the ship. 

The program is taken from Peek, 
Poke, Byte and RAM—Basic Pro¬ 
gramming for the ZX-81. It is publish¬ 


ed by Shiva Publishing of Cheshire. 

Forthcoming titles include 
Machine Code and Data Structuring 
for the ZX-81 and The ZX-81 Add-on 
Book, both at £7.50. 


10 

s i£T T -12. x £ 1 xos4n) 




2© 

PRINT RT 21,0; 




4© 

PRINT 




45 

FDR 3=0 TO S 




50 

ME XT 3 




60 

PRINT RT 20,T-2, 




70 

PR XNT RT 2,0 ; “ E = " ; 

R =57 

S=56 


&© 

INPUT E 

•3=500 

Us480 


SS 

PRINT E 




100 

PRINT "Us"; 




110 

INPUT U 




120 

PRINT U 




130 

LET fi=U*COS (PI*E/180) 

* 



14-0 

LET BaUtSIN CPI*E/180) 

• * 



150 

FOR 3=0 TO B/16 




160 

LET Cs.8HiCBfJ-16f3*3) 

* 



170 

IF R*3>62©0 THEN GOTO 220 

* 


aa mm 

180 

IF 0 4-0 THEN GOTO 20© 

■ 


■ • B 

19© 

PLOT .01*0*3,02 


■ ■ 


200 

NEXT 3 

* 

■ 

* » GLUG 

210 

IF RBS CR*B^32©0-TJ <3 THEN 

■ 

■ 

■ GLUG 

GOTO 

24© 



GLUG 

220 

PRINT RT 10,20, ‘MISSED" 

a 

* 

* GLUG 

230 

STOP 


m 

GLUG 

24-0 

FOR 3=0 TO 5 

it BaiS * 

i 

GLUG 

250 

PRINT RT 20-J.T—2; "GLUG" 



260 

NEXT 3 
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IB 

LET RsPI/PI 


20 

LET 6=PI-PI 


30 

LET R=B 


4-0 

LET U-50® 


SB 

LET 3=20 


60 

LET T = 15 


70 

LET Y=!S 


SB 

CLS 


90 

LET X = I MX CRND*2SO 


100 
110 
1 £0 
130 
14.0 

PRINT RT Y ,X; 

PRINT RT S , T ; " 

PRINT RT S-fR,TtR; 

LET U=U-R 

IF INKEY $ = THEN LET 

X _ 

R 


XSB 

IF INKEYI=: ,! P“ THEN LET 

T=Tt 

R 



16© 

IF INKEY$ = M 1'* THEN LET 

S=S~ 

R 



17© 

IF T <B THEN LET S=5-R 


IS© 

IF T>25 THEN LET T=25 


190 

IF U=B THEN GOTO SO© 


2@® 

IF S=B THEN GOTO 35© 


91© 

30© 

XF T=X PHD S-Y-R THEN 

GOTO 

92© 

IF S=Y~R AND ToX THEM 

GOTO 

S© 

230 

GOTO 11© 


300 

LET YaY-5 


310 

GOTO SO 


3S0 

3©© 

LET R=R*R 

GOTO 6© 


60© 

CLS 


SX0 

PRINT RT 10.13.:*'agEBMBB * ' 

620 

PRINT RT 12,11;R 



STAR 

GATES 



S TAR GATES is a IK program in 
which the sun is about to go 
super nova and a fleet of space 
ships is waiting to depart from Earth 
to escape the holocaust. The object is 
to guide each ship through star gates. 

The space ship is situated at the 
bottom of the screen and key 1 is 
used to move vertically upwards and 
keys Q and P to move left and right 
respectively. 

Star Gates was submitted by D E 
Healey of Coseley, West Midlands. 
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S PACE SHOOTDOWN, by G L J 
Tily, provides a test of your skill 
in estimating distance and 
angles. Play the game a few times 
and you will be amazed at how 
clever you become at estimating 
correctly. 

Your base is at the bottom left of 
the screen. The invader is the black 
piece. Your task is to shoot it down in 
as few shots as possible. First enter 
the angle of the ship from your base, 
or as good a guess as you can esti¬ 
mate, then enter the distance from 
your base. Remember that the screen 
is 63 units across. You will get a 
satisfying BOOM when you get the 
two figures correct. 



10 

L£T C=0 

20 

LET K=0 

30 

LET X = J NT (RND * 5 ©J 

4-0 

LET V = INT i RND±37j 

50- 

PLOT X.V 

50 


70 

PRINT RT 21,1;"W" 

30 

IF K = I THEN GOTO £70 

00 

INPUT R 

100 

EET fi=fi/180*PI 

110 

INPUT R 

130 

LET 0=0+1 

14-0 

LET X1=INT (RiCOS H> 

150 

L E i Y 1 = 1NT ( R* SIN H J 

170 

PR in ' NT 1.1; " R : ** ; H + ISO.-PI 

; iS R 

: " R ; ** SHOTS 11 ; C 

130 

FOR U = —£ TO £ 

190 

FOR Z = —£ TO £ 

200 

IF X1+U=X RND Y1+Z=Y OR XI + 

Z=X HND V'l+U =Y THEN EET K=i 

210 

IF K = 1 THEN GOTO 50 

220 

NEXT Z 

230 

NEXT U 

24-0 

UMP L QT Xl-L Y1-1 

230 

PRINT 

253 

5QT5 30 

270 

UNPLOT X - 1 .- Y - 1 

230 

PRINT ** BOOM 5 ' 

This runs on a IK ZX-81, and the program is 

copyright© G Tily, 1981. 
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SINCLAIR USER 

- the best 
enhancement yet 
for the ZX enthusiast. 
Make sure you get it monthly! 


What is the best way to guarantee that you 
never become bored with your Sinclair 
computer? 


you make the right choice. There will be exclusive pre¬ 
release snippets on products which are about to hit the 
market. Our aim is to make Sinclair User invaluable and 
we will chronicle applications which are of special interest. 

Each month we will carry pages of programs. Another 
must for every user is our first-rate helpline service. And 
we intend to carry as much information as possible 
about clubs. Last but not least let us say that the best 
way you can guarantee you like the magazine is by 
participating yourself. Don’t forget to ask us your 
queries; send in your programs - for which we will pay 
£10 if we publish - and be sure to tell us if you are using 
your ZX 81 in a special way. Send in your club news 
and tell us of any interesting people out there in 
userland. And just in case you need further convincing, 
look at our forthcoming editorial plans. 

Can you continue to get the most out of your ZX 
without reading the Sinclair User every month? So why 
not fill in the subscription order form today? 

Editorial Plans 

May August 


The answer is to subscribe to Sinclair User ... written 
specifically for owners of ZX 80’s and ZX 81’s. Sinclair 
User is the latest monthly from ECC Publications - 
pioneers of Practical Computing, WHICH COMPUTER?, 
and Computer & Video Games. Whether you bought 
your system yesterday or are an old hand, you are 
probably an enthusiast for your machine. And your 
biggest problem is likely to be obtaining all the 
information to satisfy your interest. We promise that 
Sinclair User will be devoted entirely to quenching your 
thirst for information. 

As the name suggests, the content will be geared 
specifically to helping you, the user. There will be pages 
of information on available hardware and software. Our 
expert writers will analyse established products to help 


The Sinclair 16K RAM 
dissected 

Adventure games programs 

June 

Disks - a look into the 
future 

Graphics software 

July 

The ZX81 memory map 
analysed 

Debugging programs 


The Sinclair printer ^ 

and its alternatives f 

Chess programs ^ ^ 

September f y 

Enhancements for the enthusiast W 
(e.g. colour, sound, f ^ 

high resolution, speech) * 

Business software . ~ jfv 

✓ y ^ 
y Tv ^ y 

// * 
o\ 


for the ZX81 





ECC PUBLICATIONS 

30/31 ISLINGTON GREEN LONDON N1 8BJ 
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Simple English. 


At long last, someone has written a book on 
computers that even Aunt Emily can understand. 

That someone is none other than Dennis 
Jarrett: doyen of simple English and former 
Managing Editor of WHICH COMPUTER? and 
Practical Computing. And his book is called The 
Good Computing Book for Beginners. 

If you’re not a beginner, don’t let the title 
put you off. Because this book provides a 
wonderful opportunity of clearing up any grey 
areas of your knowledge. 

And a glance at the chapter headings down 
below may well give the impression that this 
book is fun to read. You would be right. It’s the 
brightest way imaginable of learning all about 
computers. 

There’s also a complete language guide to 


Ally ° u need 


computer-jargon mumbo-jumbo in a glossary 
of terms that’s as comprehensive as you’ll find 
anywhere. 

All in all, you’ll find this book does for 
computers what Berlitz did for languages. 

In 304 pages. And at a modest £1.95. 


Your course in computers. 


I i Introduction to the 
introduction - computer 
myths, why they are being 
dispelled, and the truth 
about computers. 

What goes on inside-a 
swift canter through the 
heavy technology, avoiding 
irrelevant and/or difficult 
ideas: processors, chips, 
memory, I/O. 

Programmes - what makes 
the computer tick, or at 
least where the noise comes 
from: system software, 
applications, the pleasant 
and unpleasant faces of 
programming. 


4 Whats a personal 

computer?-new readers 
start here, because this is 
all you need to know: what 
can it do? What's available? 
And where do you buy a 
computer? 

5 What to look for-how to 
buy a small computer, or at 
least how to avoid complete 
disappointment. 

A practical glossary - facts, 
opinions, references and a 
few personalities. 

7 Now read on- 

recommended reading, 
with notes. 


Enrol here! 


Please send me - oopy(ies) of the Good Computing book for 

Beginners at £1.95 each plus 50p for postage and packing. 

□ / enclose cheque for £ _ made payable to ECC Publications. 

Name _ 


Address 


□ Please charge my credit card the sum of£_ _ 

Name of credit card ___ 

Number ___ __ 

Signed __ 

Now post please to ECC Publications, 
30-31 Islington Green, London N1 8BJ. 
Telephone enquiries: 01-359 7481. 


L 


J 
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ZX 80/1 
WAR! 


ZX KEYBOARD 
FULLY CASED 
w H REPEAT KEY 

FULLY CASED KEYBOARD 
UNCASED KEYBOARD 
KEYBOARD CASE £10.95 



This is a highly professional keyboard using executive buttons as found on top quality 
computers. It has a repeat key and comes, complete in its own luxury case. This is a genuine 
professional keyboard and should not be confused with toy keyboards currently available on 
the market. 


16K RAMPACKS 

MASSIVE ADD ON MEMORY 

WHY WAIT TO PAY MORE 

FAST IMMEDIATE DELIVERY 


Post to: 

Dept SCU 

Kayde Electronic Systems 
48/49 Exmouth Road 
Great Yarmouth 
Norfolk NR30 3DP Tel: 0493 57867 


All products include VAT are fully 
built and tested and come with a 
COMPLETE MONEY BACK GUARANTEE 


Please send me.RAM pack/s £32.95 each 

Please send me.cased keyboard/s £37.95 each 

Please send me.uncased keyboard/s £27.95 each 

Please send me.keyboard case/s £ 1 0.95 each 

I enclose £. 

Name. 

Address. 


Please add £1.50 p/p and make cheques payable to Kayde 
Electronic Systems. 



















